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Summary 


An algorithm to recognize and translate sets of character strings 
specified by canonic systems is presented. The ability of canonic systems 
to define the context sensitive features of strings and to specify their 
translation allows the algorithm to recognize and translate real computer 
languages. It is also applicable in other language systems. 

Canonic systems are discussed, and several examples of their use are 
given. The algorithm is described, and examples of canonic translation 


are presented using a program which implements it. 
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A Canonic Translator 


The development of a generalized compiler whose function is directed 
by a formal language specification has aroused significant interest and 
effort. This thesis presents an algorithm for the recognition and translation 
of character strings belonging to a set of strings whose syntax and translation 
have been defined by a canonic system. Since these systems are capable 
of defining context sensitive features of language, the algorithm can 
recognize and translate real computer languages. It is applicable to an 
even wider class of language systems, including boolean algebras and 
theorem proving, which can be characterized by this method. 
Canonic systems form the basis and motivation for this work. The 
first task of the paper is to discuss briefly and informally the improved 
specification of syntax and translation made possible by the development 
of canonic systems. The discussion includes a description of the form of 
the systems and several examples, among them a complete formal description 
for the syntax of the string processing language SNOBOL. The contribution 
of this thesis lies in the presentation of an explicit algorithm which 
employs a canonic system characterizing the syntax and translation of a 
set of source strings to recognize a particular source string and perform 
the translation. The latter part of the thesis describes the algorithm and 


the program which implements it. 


I. Formal Syntax Specifications 


Backus-Naur Form is the most widely known formal specification of 
syntax. It provides a convenient starting point for a discussion of 
canonic systems. The general form of a rule or production of a BNF 
specification is as follows: 


<name 1> ::= terminal 10 <name 11> ... <name 1n> terminal ln 


terminal 20 <name 22> .., <name 2m> terminal 2m | .... 
The sign ::= should be read "may be replaced by" and the vertical bar 

represents "or". The names enclosed within brackets are arbitrary designations 

for defined sets of strings. The definition may be recursive; that is, the 

set on the left may be defined in terms of itself if the name of the set 

also appears on the right. "terminal n m" designates an arbitrary string 

of terminal characters, possibly the null string. As a concrete example, 


consider the following BNF system. 


<assignment> ::= <letter> = <expression> 


<expression> <letter> | <letter> + <expression> 


<letter > x | y| Zz 


An example of a string which is a member of the set <assignment> is: 
Y2ex+rZ 
The strings comprising a set definedbty a BNF system normally appear 
to be generated in a "top-down" manner. The highest level definition 
( <assignment> ) is generally placed first, and one normally reads a 
BNF rule from left to right. In order to gain some insight into the form 
and nature of canonic systems without launching into a formal definition, 


consider turning a BNF production around and modifying the punctuation somewhat. 


1. v letter +} x expression | v = x assignment 


The lower case letters (v and x) are variables representing strings 


chosen from their respective sets (letter and expression). The names of 

the sets are underlined and called predicates. The definition may be read 
very elaborately as follows: "If v represents a string chosen from the 

set letter, and if x represents a string chosen from the set expression, 

then the string formed by concatenating the string represented by v with 

an equals sign and the string represented by x is a member of the set 
assignment." The sign dl aces as the conjunctive "and", and the sign . acts 
as an assertion sign. A string of variables and terminal characters (e.g. v=x) 
is a term, and a term followed by a predicate in the manner above is a 

remark. Those remarks to the left of the assertion sign are referred to 

as premises; those to the right as conclusions. This example illustrates 

the most basic form of a canon in a canonic system. A more formal description 
may be found in Donovan (2) and Donovan and Ledgard (3). This discussion 
will remain highly informal. 

What improvements in the definition of a syntax do canonic systems 
permit? The principal weakness of BNF systems is their inability to describe 
the context sensitive features of a set of strings; for example, the 
requirement in most computer languages that all reference labels of a program 
be singly defined as statement labels. This restriction could only be 
imposed in BNF notation by some process akin to defining each possible 
legal program, in toto, in a separate BNF rule. Certainly all sets of 
strings which can be defined in BNF may be defined by a canonic system by 
transforming the rules in the manner illustrated above. In addition, one 


may "cross-reference", or use a variable more than once on the left. 
2. x name ¢ x label L x labelname 


Labelname is the intersection of label and name; that is, only those 


strings which are members of both the set label and the set name are members 
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and makes it possible to generate all ordered pairs with the property 
described. 

A concrete example of the production of a particular member of a 
defined set will perhaps serve to clarify the nature and recursive properties 
of canonic systems. Assume we wish to show that <Agcx, Y,> is a member 
of the set notin. Using canon 4, we may assert 

A letter. 

We may then substitute this result into the premise of canon 7, and assert 
that 

<AcA>D notin. 

We then derive from canon 5 that 

<AcX> differ 

<A <Y> differ. 

Finally, we apply canon 8 twice as follows: 

<AgA> notin ¢ <ace> differ L <AgXs> notin 

<AcX,> notin ¢ <AeY> differ - <acX, Y,> notin 
Note that we use the conclusion from the first application of the canon to 
establish the premise in the second application. 

Now that the reader has grasped some of the power and elegance of 
canonic systems, a short history of their development is in order. This 
work is based completely upon the presentation of canonic systems by Donovan 
and Ledgard (3) and Donovan (2), who is responsible for their appearance 
in present form. His work evolved from an applied variant of Smullyan's 
elementary formal systems (6) and Post's canonical systems (4). The present 
canonic systems are so named in recognition of Post's work. 

To further illustrate canonic systems, I present a complete syntactic 
definition of a restricted computer language MINI MAD. The present example 


and the foregoing example of notin both draw heavily from the examples 
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presented in Donovan (2). 

MINI MAD will permit only a few principal types of statements: an 
assignment statement, a transfer statement, and a statement formed by 
combining a simple conditional with one of the two other statements. 

All programs must terminate with an unlabeled END OF PROGRAM statement. 

The only boolean operator allowed is arithmetic equality (.E.), the only 
arithmetic operator allowed is addition (+), and only arbitrary length 
integers will be permitted as constants. The permissible statement labels 
are the single letters A, B and C; the variable names allowed are the letters 
X, Y and Z. In addition, restrictions on statement length will be omitted 
and no blanks will be allowed save those which are part of the statement 
definition (e.g. TRANSFER TO). ‘The character * will be adopted as an end- 
of-card character, analogous to a carriage return. It should be understood 
that all restrictions and omissions are introduced for the sake of simplicity. 
A complete formal syntactic definition of the string-processing language 
SNOBOL may be found in appendix 2. 

The following example is a member of the set MINI MAD program, with a 
carriage return substituted for the character *, 

A X=15 

B =X+1 

WHENEVER X .E. 123, TRANSFER TO A 
TRANSFER TO B 

Three canons will suffice to define the set of arbitrary length integers. 
9. f Oala2a ... 4849 digit 
10. d digit f d integer 
ll. d digit ¢ i integer L di integer 

The use of the predicate notin, defined previously, will later implement 


the restriction that no statement labels be multiply defined. 
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12. } <KACB> A <SACCHA <BLC> differ 

13. <xgey> aitfer | <yex> differ 

4. a digit | <deA> notin 

15. <xey> notin Y <xed> differ | <x_ed, y> notin 

One should keep in mind that only lower case letters are used as 
variables representing strings. The signs L Oe gig are punctuation 
signs in the canonic system itself. All other characters are drawn from 
the alphabet of the language being defined. 

The definition of the predicate in will serve to implement the restriction 
that all reference labels be defined. The set in will consist of pairs of 
letter lists such that all letters in the first list appear somewhere in 
the second list. If the list of reference labels and the list of statement 
labels in a program satisfy this relationship, we know that there is at 
least one statement label corresponding to every reference label. 

16. + AaBaC label 
17. | <A. A> in 
18. <xcy> in ¢ Praper | <x c 2y> in 
19. <xgy> in $F Liaber | <4x cfy> in 
20. <xey> in ¢ <zcy> in }<xzecy> in 

Canon 17 provides a simple starting point for the recursive production 
of the more elaborate members of in, and corresponds to a program with 
neither statement nor reference labels. The next two canons describe the 
ways in which one may add to the lists of statement and reference labels. 
We may of course add a label at will to the list of statement labels, and 
may add a label to the reference label list as long as we also add it to 
the list of statement labels. The last canon provides for multiple referencing 
of a statement label. Using canons 16 through 19 alone, it is not possible 


to produce the following member of in 
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< By Bic A, By Cs> 
We may define the set expression as follows.. 
21. L XaYaZ variable 
22. v variable } v expression 
23. i integer + i expression 
24. v variable qd x expression - v + x expression 


25. i integer ¢ x expression } i +x expression 


The predicate next defined, conditional, will permit us to transform 


any unconditional statement into a conditional statement when a string from 
the set is placed before the unconditional statement. 

26. t A conditional 

27. x expression ¢ y expression WHENEVER X .E. Y, conditional 

Canon 26 allows us to produce a string which leaves the statement unchanged. 
Canon 27 defines a set of strings which will change any unconditional MINI 
MAD statement (e.g. X = 3) into a conditional statement (e.g. WHENEVER 
X+yY .E. 2, X = 3). 

The “building block” sets defined so far will permit us to define the 
set of MINI MAD programs in fairly short order. A convenient vehicle for 
the task is a predicate of order three. The first element of the ordered 
triplets which make up the set program with label lists will be a list, 
punctuated by commas, of all statement labels used. The third element will 
be a similar list of reference labels. The second element will be the 
string of statements in which these labels are used. Again, we begin with 


a convenient starting point for later recursion. 


28. Le A «<A <A > program with label lists 


29. €sePper> program with label lists ¢d v variable ¢ x olen ce conditiona 
se CV =X *per program with label Lists 


30. sep <> program with label lists dy label d v vacates x expression ¢ 
¢ conditional ¢<£.s> notin 


b<Lsekl CV=V *per> program with label lists 
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Canons 29 and 30 describe the way in which we may add an assignment statement, 
either conditional or unconditional. Using the first canon of the two, 

we may add an unlabeled assignment statement; using the second, we may 

add a labeled statement. Note that the use of notin in canon 30 imposes the 
restriction that the label used must not be in the list of previous statement 
labels. 
30. <seper> program with label lists ¢ 4 label ¢ ¢ conditional 


L se C TRANSFER TO £* pe 4,x> program with label lists 


31. <seper> program with label lists ¢ fam raver t e conditional ¢ 
<mes notin 
{- mS <m C TRANSFER TOL* pe fr program with label lists 
These two canons allow use to construct strings which include labeled 
and unlabeled, conditional and unconditional transfer statements in a 
manner analogous to that of the preceding pair of canons. We now need but 


one more canon to produce strings which are legal MINI MAD programs. 


32. <s<p<r> program with label lists ¢ <res> in 
Pp END OF PROGRAM* MINI MAD program 


This canon insures that all reference labels in the members of the set 

MINI MAD program are defined, and that all programs are properly terminated. 
This completes one of many possible canonic system definition or programs 
in MINI MAD. The canons are collected in sequence in appendix l. 

If the reader has clearly understood the manner in which canons may 
define, by production, the syntax of real computer languages, one further 
illustration may provide some insight into the manner in which these systems 
may also define translation. Assume one wishes to translate MINI MAD into 
another language, for instance an assembly language such as FAP. In order 
to accomplish this, one might expand program with label lists to include 


a fourth term which would contain the translation of the string of statements. 
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yoz 


The canon for an unconditional, untabeled TRANSFER TO statement might 


appear as follows. 


ith fabel lists and translation ceo label 


33. <s 


FER TO F* pe £r zt TRA p> 


and 


This possibility of canonic specification of translation will be pursued 


further in the description of the algorithm which forms the contribution 


of this thesis, to which I now turn. 
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II. The Recognition and Translation Algorithm 


Canonic systems will prove very useful in explicitly and concisely 
defining sets of strings such as computer languages. Such definitions would 
eliminate many ambiguities existing in language manuals. These systems 
could prove of greater value, however, if a canonic system could be used 
as a basis for recognizing strings from the defined set. In addition, if 
the members of the defined set are ordered pairs, triplets, etc., the 
usefulness of canonic systems would be still further extended if the 
algorithm could be used to produce the missing terms corresponding to a 
given term. The remaining part of this thesis discusses such an algorithm, 
the program which implements it, and the nature of the constraints imposed 
on the canons in order that the program be able to interpret them. 

This algorithm is an extension of the algorithm presented by Cheathem 
and Sattley (1), which is capable of recognizing strings produced by a 
Backus-Naur system. The modifications to their algorithm, which appears 
here in quite different form, reflect the greater power of canonic systems 
in defining strings. These modifications include mechanisms for handling 
predicates of degree greater than one, for properly interpreting the 
multiple use of a variable among the premises, and for generating the 
translation specified. In the case of a canonic system where all predicates 
are of degree one, and no "cross-referencing™ is used, the algorithm operates 
in a manner almost identical to that of Cheatham and Sattley. 

The program which embodies the algorithm divides into two parts. A 
preliminary phase checks the syntax of the canonic system used. It insures, 
for example, that all variables used in the conclusion of a canon are to be 
found in the premises, and that all predicates used as premises are defined 


somewhere as conclusions. Further restrictions, which will be clarified 
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later, are imposed on the form of the canons and are checked at this point. 
The program then assembles the canons into a list structure which reflects 
their form and content, and control is passed to the evaluative phase of 

the program. The SLIP list-processing system, developed by Weizenbaum (7) 


vastly simplified the implementation of the algorithm. 
INPUT STRINGS 


Check syntax of 


scan of 


input string(s) 
_7 land generation 
a of translation 


Canonic System 


list structure 
for 
canonic syste! 


TRANSLATION 


Fig. 1. Structure of Program 


The second part of the program represents the principal programming 
effort. This phase scans the input string, determines whether it satisfies 
the canonic definition, and generates any associated translations. The 
algorithm is principally "top-down"; it attempts first to match the input 
string against the final predicate in the canonic system (e.g. MINI MAD program), 
and it arrives only through recursion at a lower-level predicate, (e.g. 
integer or digit). Consider the following simplified statement of the 
algorithm for the case of a canonic system involving only predicates of 
degree one. The simplified algorithm will be later expanded to include 


more general cases. Imagine an arbitrary character string, with a mental 
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pointer to the left of the first character, and a canonic system defining 
a set of strings. We wish to determine whether the character string is 

a member of the set. 

1. The program considers in sequence those canons directly defining the 
string in question, and performs the following steps (2 through 6) for 

each such canon. 

2. The conclusion of the canon is matched, item by item, against the 
input string. If the item in the conclusion is a terminal character, 

step 3 is performed; if a variable, step 4 is performed. If the end of the 
canon is reached, the algorithm proceeds to step 5. 

3. The item in the conclusion is a terminal character. It is compared 
with the character in the input string to the right of the mental pointer. 
If they are identical, the program returns to step 2 to consider the next 
item in the conclusion, with the pointer shifted one position to the right. 
If not, the scan fails and the program returns to step 1 to consider any 
remaining canons for the string. 

4. The item in the conclusion is a variable, and the program must operate 
recursively to determine the definition of the variable in terms of the 
input string. In other words, it must determine the number of characters 
from the input string, commencing with the character to the right of the 
pointer, which should be alloted to the definition of this variable. To 
accomplish this, the program assembles a new input string which is a copy 
of all input characters to the right of the pointer, and picks a predicate 
among the premises of the canon which contains the variable. After saving 
its present state, the program returns to step 1 to determine the definition 
of the variable by examining the canons defining the premise predicate 
chosen. If there is no response upon return, the scan fails and the 


program returns to step 1 to consider alternative definitions of the string. 
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If there is a response, the program conpares it with the original input 
string to determine the definition of the variable and moves the mental 
pointer to its new position following the definition of the variable. 

The algorithm returns to step 2. 

5. The scan of the conclusion is complete, and the definitions, in terms 
of the input characters, of the variables appearing in the conclusion have 
been recorded. The algorithm now inspects the premises. Those premises 
used in step 4 to determine the definitions of the variables in the conclusion 
may already be asserted, since they were used to generate the definitions. 
However, a variable may appear twice in the premises, and we must insure 
that the string which forms the definition of the variable is a member of 
both sets. The algorithm forms an input string from the definition of the 
variable and operates recursively to determine if the other premise 
containing the variable is also true; i.e., if the string which is the 
definition of the variable is also a member of the second set named as 

a premise predicate. Upon return, if there is no response, the algorithm 
returns to step 1 to pursue alternatives as before. If there is a response, 
the program insures that the string has been fully scanned. If there are 
still more unchecked premises, it treats them in the same manner. After 
all such premises have been successfully verified, the simplified algorithm 
proceeds to the last step. 

6. The results of the scan at this level, which constitute the response 
for the next higher level, are assembled. There are no results if the 

scan failed. Otherwise, they consist of the input string with the mental 
pointer resting at the point where the scan of the conclusion was completed. 
The algorithm now returns to step 1, if there are more canons directly 


defining the set of which the input string is possibly a member. Since 
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each canon could conceivably add to the results, the program must actually 
be equipped to handle multiple results and hence multiple responses at the 
next higher level, and check out each possibility. The example which 
follows will serve to clarify the problem. If there are no further canons, 
the program proceeds to step 7. 
7. The program "pops" its state; that is, it returns to pick up where it 
left off at the next higher level. If the highest level has been reached, 
then the results are examined for a completely scanned input string. If 
such a response is found, the input string is a member of the originally 
defined set. If not, there exists a syntax error in the string. It is 
not clear that the set of all syntactically incorrect sets will be recognized 
by the algorithm. This recognition may be unsolvable in general. The 
algorithm is flowcharted below. 
A simple example will serve to illustrate the process and the problems 
involved in multiple answers. Consider the following canonic system. 
34. L 1 digit 
35. f 2 digit 
36. f 3 digit 
37. d digit } d integer 
38. d digit qd i integer L di integer 
This system defines integers as arbitrary length strings of 1, 2 and 3. We 
wish to determine by use of the algorithm whether the string 31 is an 


integer. The process is described in the shorthand fashion below. 


Step 


Recursion 
Level 


is] 


wr 


OrNMWWwW WN MH WwW WwW WwW NM SF HB HB NH 


«ee cece re ¢ 
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Canon 


Considered 


37 
34 
35 
36 
37 
38 
34 
35 
36 
38 
37 
34 
35 
36 
37 
38 
34 
35 
36 
38 
37 
34 
35 
36 
37 
38 
34 
35 
36 
38 


38 
38 


Result(s) 


Fails 

Fails 

“4 digit 
ai integer 


Fails 
Fails 


3) 1 digit 


ie digit 


Fails 
Fails 


ty integer 


Fails 
Fails 
Fails 
Fails 
Fails 
Fails 
Fails 
Fails 
1 integer 
31 | integer 
art neeee 
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Next 
Pop 

Next 
Push 
Next 
Next 
Pop 

Push 
Push 
Next 
Next 
Pop 

Next 


Push 
Next 
Next 
Pop 

Push 
Push 
Next 
Next 
Pop 

Next 
Push 
Next 
Next 
Pop 


Pop 
Pop 


Done 


for digit 
Canon 


Canon 


Canon 
for digit 
Canon 


Canon 


for integer 


for digit 
Canon 


Canon 


Canon 
for digit 
Canon 


Canon 
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Flowchart of Simplified Algorithm 
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"PUSH" means save state, go to "ENTER". 
"POP" means pop state, go to correct "RETURN". ©) 
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At this point, the algorithm has arrived at two answers; i.e., that 3 
and 31 are both integers. The first could not be immediately rejected 
because the algorithm has no global overview which informs it that there is 
no syntactic type following integer which would account for the rest of the 
string. At level zero however, we may eliminate such results, and the 
single assertion that 31 is indeed an integer remains. 
We now consider the problem of left recursion. Suppose one wrote 
canon 38 in the following manner. 
39. i integer + d digit | id integer 

The defined set integer has not been altered, but the algorithm will no 
longer function correctly. Note that whenever the program operates 
recursively to determine the definition of integer (steps 1, 10, 20), 

the length of the input string has been reduced by one character. Unless 
the scan proceeded from right to left, the program using the canon above 
would be caught in an endless loop, terminated only by the exhaustion of 
memory. Although it would be possible to devise a scheme to avoid the 
problem and still interpret the canon correctly, this would require 

some substantial effort which adds nothing to the scope or generality of 
this work. Instead, the canons are inspected for left recursion and rejected 
if it occurs. This constraint does not prevent the definition of any set 
of strings which could otherwise be defined. 

The example brings out one other problem. At different points in the 
procedure (e.g. steps 42 and 43), the program must handle several possible 
answers which result from the various ways in which the canons may define 
the input. On a theoretical level this presents no problem, but in practice 
the manipulation of multiple large and nearly identical lists may exhaust 
memory. For this reason, one should follow two suggestions in using the 


system. Firstly, all syntactic types should be defined in as little 
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context as possible, so that the legality of a particular string is immediately 
apparent, and does not depend on a construction occurring much further 
along in the input. In particular, the canonic system should not allow 
the input string to be parsed in several different ways, only to discover 
much later that only one is legal. To do so involves the risk of exhausting 
memory. Secondly, the canonic system should be unambiguous; that is, a 
particular string should be generated by only one production or path of 
application through the canons. Otherwise, both productions will give rise 
to results. Although the ambiguity could be eliminated by checking for 
identity among the results at any particular point, the comparisons would 
be extremely time consuming. 

We turn now to an extension of the algorithm for the case in which 
we wish to consider evaluating a predicate of degree greater than one, for 
which one or more of the terms arenot known and are desired as translated 
output. The algorithm is presented at an arbitrary recursive level with 
input of arbitrary degree. For some of the input terms a character string 
is provided; some are merely marked 'needed"’. Imagine a pointer positioned 
as before to the left of every term of the input set for which a character 
string is provided. 
1. The program considers in sequence those canons directly defining the 
input in question, and performs the following steps (2 through 7) for each 
such canon. 
2. The algorithm assembles a list of undefined variables which occur 
in those terms of the conclusion corresponding to "needed" terms in the 
input set. These are variables which would not normally be defined during 
the scan of the conclusion, but for which definitions must be obtained in 
order to generate the required translations. Variables appearing only in 
the premises of the canon and not in the conclusion are also added to the 


list. 


-26- 


3. The input strings provided are matched in sequence against the corresponding 
terms in the conclusion of the canon. The program skips conslusion terms 
corresponding to "needed" terms in the input set. If the item in the 
conclusion at any particular point is a terminal character, the algorithm 
performs step 4; if a variable, the algorithm performs step 5. When the 
scan of a term is complete, the program leaves the pointer where it rests 

and proceeds to the next term for which input is provided. When all such 
terms are scanned, the algorithm proceeds to step 4. 

4. The item in the conclusion is a terminal character. It is compared 
with the character to the right of the pointer in the input string. If 

they are identical, the program returns to step 3 with the pointer shifted 
right one position. If they differ, the scan fails at this point and the 
algorithm returns to step 1 to pursue alternative definitions for the input. 
5. The item in the conclusion is a variable, and the algorithm must operate 
recursively to determine its definition. The program assembles a new input 
sequence from one of the premises in which the input appears. For the 

other terms in the premises, it assembles a character string if the variables 
therein have been defined. If one or more of the variables is undefined 

and in the "needed" list, it marks the term as "needed". Otherwise, the 
term is marked as unneeded. The program saves its state and returns to 

step 1 with the assembled input set for the chosen premise predicate. 

Upon ceturn, if there is no response, the scan fails. If there is a 
response, the pointer of the input string is advanced accordingly, the 
definition of the undefined variables recorded, and the algorithm returns 

to step 3. 

6. The scan of the conclusion is complete. Those premises which were 

not employed during the scan to generate definitions must now be verified. 


For these premises, the proper input strings for the terms are assembled 
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from the now-defined variables, and the algorithm operates recursively 

to determine whether the premise is satisfied. When all unchecked premises 
have been satisfied, the algorithm proceeds to the final step. If the 

return from recursion produces no response, or an input string not fully 
scanned, the scan fails and the algorithm returns to step 1 to consider 

any remaining canons. 

7. If the scan succeeded, the results for the next higher level of recursion 
are assembled. For each term given as a string, the string is returned 

with the mental pointer moved to a position following the last character 
inspected in the conclusion scan. For each "needed" term, the definition 

of the term is assembled from the terminal characters and the now-defined 
variables in that term of the conclusion. If there are more canons to be 
considered, the algorithm returns to step 1. If not at level 0, the program 
then pops to the next higher level. If the zero recursion level has been 
reached, the evaluation is nearly complete. The results are checked to 
determine if there is a response in which all given terms have been fully 
scanned. If so, the "needed'' terms are outputted. If not, there is a 

syntax error in the input. The expanded algorithm is presented as a flowchart 


below. 
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Flowchart of General Algorithm 


ENTER 
ith input set 


and predicates 


(Another) canon defining! NO 
this predicate? 


Check results 

Print translations 
YES 

>[ LEVEL 0 ? No PoP | 


Assemble List of undefined 
variables from 'NEEDED' terms| 
in the input 


Another item in term of the 
conclusion of the canon 

corresponding to an inputted 
term? 


NO 


What type? 


Inext character VARIABLE 


in input strin of conclusion? 


Select premise with the 
ariable. Create new input 
set. Mark terms containing 
ndefined variables in the 

ssembled List as "needed". 
ssemble other terms from 

efinition of variables and 
input strings 


se definitions 
of variables to 
assemble input 

terms 


YES [Response with 
fully scanned 
terms? 


be RESPONSE? 


YES 


Assemble results. 
For inputted terms, 
return scanned 
input. For 
"needed" terms, 
ssemble string for term 
from definition of variable 
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A step-by-step example such as the previous table would be unduly 
lengthy when considering a non-trivial evaluation of a predicate of degree 
greater than one. Instead, consider as an example the action of the algorithm 
at the highest level of recursion as it seeks to determine whether an 
input string is a legal MINI MAD program. The only relevant canon is 
the last one. 


40. <seper> program with label lists <res> in 


} P END OF PROGRAM * MINI MAD program 


The algorithm is presented with an input string which is possibly a member 
of the set MINI MAD program. Before beginning to scan the input, the 
program determines that s and r cannot be defined in terms of the input, 

and places these variables in the undefined list. It then begins the 

match of the input string against the conclusion of the canon. Since the 
item in the conclusion is a variable, it turms to the first premise, which 
contains p as a variable, in order to determine the definition of p in 

terms of the input string. Since s and r are in the undefined list, it 
marks these terms as "needed'', and operates recursively to determine 

whether p is valid, and to produce s and r. The algorithm is presented at 
the next lower level with an ordered triplet in which the first and third 
elements are "needed" flags, and the second element an input string. If 

the input is indeed valid, excluding the requirement that all reference 
labels be defined, the algorithm will scan the input string at progressively 
deeper levels of recursion, eventually parsing out the statement labels, 

the various statements, etc. Since the first and third terms of program with 
label lists are "needed", it will build up these terms from the various 
statement and reference labels in the program, as directed by the canons 
which define program with label lists. Eventually, the algorithm will 
return to level zero. If there is no response returned from the lower level, 


the scan failed. If there is a response, it will consist of the input 
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string with the pointer shifted to the right, and the accompanying lists 
which comprise the first and third terms of program with label lists. The 
remaining part of the input string is then checked to see whether it consists 
of END OF PROGRAM*. S and r are now defined. In order to verify the 
second premise, the algorithm assembles an input set from r and s, and 
operates recursively to determine if the two lists satisfy the relationship 
in. Upon return, if there is a response, the program checks to see that 
both terms are fully scanned; that is, that the definitions of r and s 
agree in both premises. Since both premises are now satisfied, the 
algorithm returns the scanned input string as a response. The program is 
at level 0, and control is given to a final routine which insures that, if 
there is a response, the input string has been fully scanned. The routine 
prints out a message to the effect that the input was or was not legal 
MINI MAD. 

We turn now to the problems which may be encountered in evaluating the 
input in this manner. The potentially most disastrous problem is that of 
deciding how to generate the definition of variables not defined by the 
input. In the example above, there is no deterministic way of discovering 
from the one canon alone why the algorithm should not employ the second 
premise to generate the label lists. In this case, both terms of an input 
set would be marked "needed", and the canon would operate recursively to 
determine the members of the set. The definitions would be inserted, one 
at a time, into the first premise until the correct ordered pair for 
the particular input were found. Unfortunately in is an infinite set. 
Thus, if both terms are marked "needed", the algorithm sets about generating 
all possible members of the set and speedily exhausts memory. On the other 

hand, when the definitions for r and s are determined in conjunction with 


the scan of p as terms in program with label lists, only one ordered pair 
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of label lists will be produced and inserted in the second premise. A 
similar but less serious problem might arise in determining the definition 
of p, if there were more than one premise containing p. Again, the choice 
of one premise over the other as a vehicle for determining the definition of 
p might result in a markedly different number of returned responses. These 
problems have been solved by transferring the decision to the user, who 
indicates how the definition of a variable should be determined by marking 
one appearance of the variable in the premises with a prefixed dollar sign. 
When the program encounters the variable in the conclusion, it will employ 
the premise in which the variable appears with the dollar sign as the 
vehicle to determine its definition. If there is no dollar sign, the program 
uses the premise in which the variable first occurs. Similarly, when 
considering the other terms of the chosen premise, the algorithm will 

mark the term as needed only if the variables therein are prefixed with 

the dollar sign, or if there is no other term in which they appear. 

Another simplification is introduced in order to ease the programming 
effort. The restriction that premise terms contain one and only one 
variable reduces the complexity of the list manipulation which the program 
must perform. Again, this does not prevent the definition of sets whose 
definition is otherwise possibly. The premises in the canonic system which 
defines MINI MAD contain one and only one variable. An important point 
ig that with the restriction we have placed on canonic systems we have in 
no way diminished their power. 

This completes the description of the algorithm on the procedural 
level. The details of the use of the program, with examples, are described 
in appendix 3. We now turn to the intriguing question of the practicality 


of the canonic translator as a useful compiler. 
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The present program is wholly experimental, and we intend to use it 
to study the translation process. Three limitations exclude it from serious 
consideration as a practical device. 

1. Speed. The programmns, conservatively, over 1000 times more 
slowly than a normal compiler. 

2. Limitations on input. The program cannot accomodate large 
quantities of imput data. 

3. Error indications. If the scan fails, the program pinpoints 
the last character inspected in the input string, but goes no further. 

Thus, only one syntax error is detected per compilation. 

I feel these limitations can be overcome, and that an implementation 
of the algorithm might be extremely useful in acting as a trial compiler 
in the design of a language, or as a regular compiler for lesser used 
languages where the additional efficiency of a dedicated compiler is not 
worth the effort necessary to produce one. I shall not consider the use 
of the algorithm for other language systems, such as the proof of theorems 
in boolean algebra. The further restrictions imposed on the generality of 
the algorithm in order to overcome the three limitations will probably reduce 
its usefullness in other more exotic areas. The proposals follow in order 
of increasing returns and commensurate restrictions on the algorithm. 

1. Redesign and rewrite the program in assembly language. The 
program as it now stands is the MAD language in neither elegantly designed 
nor brilliantly executed. The pressure of time and the necessity to have 
the program work no matter how clumsily, prevented extensive streamlining. 

2. Develop, perhaps in conjunction with proposal 1, a list processing 
system or data structure designed specifically for the algorithm. The 
SLIP list-processing system is elegantly designed, but its generality 
necessarily reduces its efficiency for this task. Measure 1 and 2 might 


provide a five-fold increase in speed, and a doubling of input handling 
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capacity. 

3. Presently, all strings must be members of defined sets in order 
for premises to be asserted. Consider placing the left of the assertion 
sign premises which are true if and only if the definition of the variables 
are not members of the defined sets. Presently, it requires on the order 
of 26 2/2 canons to define the predicate differ for all letters of the 
alphabet. By defining a predicate same, as below, one could reduce this 
to 27 canons. 

L <AeA> ag <BeB>a «++. KZe2>; same Se 29> cane \ <x cy> differ 

The sign”’ indicates that the ordered pair x <y must not be a member 
of the set same in order to be a member of the set differ. This procedure 
would involve problems in originally defining variables, but could be used 
in premises which would only be verified after the variables have been 
defined. A moderate increase in speed would result, but the mathematical 
basis for canonic systems might well be destroyed. The possible implications 
of such a modification are vast and unexplored. 

4. The compilation of a program never produces two different 
translations. This fact raises questions about the efficiency of handling 
multiple results at many points in the procedure (e.g. in the example for 
the simplified algorithm). A program, at any point in the scan of the 
source statement, is either possibly syntactically valid or definitely 
invalid. The source statements cannot be construed in several different 
syntactically valid ways. Consider establishing the mle that the algorithm, 
at any point in the recursion, returns only the first valid definition it 
discovers for the predicate. Assume the definition of integer were as 
follows. 

41. d digit ¢ i integer t di integer 


42. d digit L d integer 
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Note that the recursive definition precedes the simpler canon, and the 
program considers it first. The action of the algorithm will be such that 
it continually operates recursively,eliminating a digit at each level, 
until it encounters a character other than a digit. The algorithm then 
“backs-up" one level, considers the alternative definition, and returns 
only one answer - an integer of the longest possible length, which is the 
definition actually desired. The implications of such a restriction are 
vast. By suitably positioning the non-recursive canons, one immediately 
eliminates more than half of the searching the program must perform, More 
importantly, such a rule eliminates all the list manipulation and duplica- 
tion the program must presently execute. The manipulations are largely 
responsible for the complexity and inefficiency of the present implementa- 
tion. Finally, such a restriction eliminates much "back-tracking", and 
makes it possible to contemplate a single, top-to-bottom pass of the input 
from auxiliary storage. Likewise, only one set of translation and "needed" 
lists must be built up, and this makes it possible to arrange the lists in 
a more conventional and more efficient format. The careful and imaginative 
implementation of this restriction might improve the speed of compilation 
by a factor of 50, and make the input capacity of the program comparable to 
that of conventional compilers. The usefulness of the translator for more 
general purposes would be, however, severly restricted. 

5. One might consider using external subroutines to perform those 
functions (e.g. in and notin) clumsily handled by an algorithm witich must 
essentially reverse the canonic production of the defined strings. If, as 
a result of proposal 4, the lists were arranged in a more conventional 
fashion, such subroutines might be easily implemented. 

6. Finally, "system predicates" might be useful. The implementation 


of the algorithm would consider such elementary predicates as letter, digit 
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and differ to be understood, so that they need not be defined. Determining 
that A differs from B by testing whether or not B is one of the other 25 
letters is hardly an efficient procedure. Such a provision might greatly 
speed the compilation. 

We have not considered the uses of the algorithm in areas other than 
language translation, and the implementation of some of these measures, part- 
icularly 4, would severely hamper the ability of the algorithm to perform the 
intent of the canonic system. Other measures, particularly 1 and 6, might 
still prove useful. Ihave also avoided proposing a means of dealing with 
the problem of error indications. This problem might well be the most 
difficult to solve, but should probably consist of mechanism whereby the 
algorithm backtracks one syntactic type (e.g. statement) from the one in 
which the error was detected, skips the syntactic type, and proceeds from 
there on. Such a procedure might well produce fast and efficient syntax 
error elimination similar to that produced by a normal compiler. 

Canonic systems are extremely powerful mechanisms for the definition 
of complicated strings. The areas in which canonic systems are applicable, 
and the possibilities for future study, are both vast and exciting. The 
possibility of a truly practical generalized compiler implemented through 


canonic systems deserves further investigation. 


10. 
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Appendix 1. 
A.Canonic system specification of the syntax of MINI MAD. 


Digit ' OAl4a2an ... 2809 digit 


Integer 4d digit [ d integer 
d digit - i integer [ di integer 


Label L Az Ba C label 


seat <AcB>s <AcC> <BacC> differ 
<x<y> differ - <y<x> differ 


Notin ) label | <yA>notin 
<x. y> notin ¢ <x, i> differ | <xed »y> notin 


In | <ACA> in 
<xe y> in F Liaber | <xet, y> in 
<x y> in ¢ label | <4.x</,y> in 
<x: y> ind <ec y> in| <xze y> in 


Variable L X. Ya Z variable 


Expression v variable v expression 
i integer f i expression 
v variable + x expression { vtx expression 
i integer ¢ x expression f itx expression 


Conditional A conditional 


x expression 4 y expression | WHENEVER x .E. y, conditional 


Program with label lists 


} <Ache A> _program with label Lists 


<sg p< T> program with label lists tv variable ¢ xX expression ¢ 


¢ conditional | Ks cv=X 


* pe r> program with label lists 


-37- 


<s. pe Y> program with label lists Kk s> notin 
v variable 7 xX expression ¢ c conditional 


< Lise cv=x * p r> program with label lists 


<S< Pe T> program with label lists ¢ m label + ec conditional 
t <s2 c TRANSFER TO m* p, m, r> 


program with label lists 


<se Pp. r> program with label lists ¢ m label { <4.s> notin 
¢ e¢ conditional k<v sc f c TRANSFER TO m* pe m,s> 


program with label lists 


11. MINI MAD program 


<se pe T> program with label lists ¢ <res> in 
} p END OF PROGRAM * MINI MAD program 


This empty page was substituted for a 
blank page in the original document. 


10. 
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B. Canonic system specification of the syntax and translation of MINI MAD 
into PSEUDO FAP. The dollar sign in PSEUDO FAP indicates "this location". 


Digit { Onla2a ... s8n9 digit 


Integer d digit f d integer 
d digit | i integer | di integer 


Label | Aa BaC label 


Differ } <AcgB>A <ACCH A<BeZC> differ 
<xey> differ | <y_-x> differ 


Notin @ label | </A\> notin 
<xey> notinG <x-/> differ Le x<t, y> notin 


In t <AcA> in 2 
<xcy> ind label | < xcf, y> in 
<xcy> ind £ labeib<Lxef y> in 
<xey> ind <xey> in | <xzcy> in 


Variable + XA Ya Z variable 


Expression v variable L v<CLA v*> expression 
i integer i L< CLA =i *? expression 
v variable + <x y>_expression <vivcy ADD v* > expression 
1, integer d<x<y> expression f <itxe y ADD =i* > expression 


Conditional < Ac > conditional 


<Xey> expression ¢ <u<v> expression 
<CWHENEVER x.E.u, <y STO TMPx 
SUB TMP* INZ $+3> conditional 


Program with translation 


[L- < A.A LAL > _program with translation 
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<s- pete t> program with translation 


v variable 
t<x. y> expression 4 <ce d> conditional 


<se ev=x * pe Ye y 


STO TNP * 
d CLA TNP * 


STO V * t> 
program with translation 


<so pe re t> program with translation } < @,§> notin 4 
v variable + <x y> expression 

| <Jf » sc cev=x¥ pe Te 
- y sto TNP* 4 


<c.. d> conditional 


CLA TNPX STO V * t> 


<8 Pe Te t> program with translation 4 m label 
<8 c TRANSFER TO m ¥* p: m, Tz 


<c< d> conditional [ 
program with translation 


d TRA m * NOP * t> 


<8_ Pe Te t> program with translation m label ¢ < ke s> notin ¢ conditional 
<2 ssc c TRANSFER TOm* poem sef d 


TRA m * NOP* t > 
program with translation 


11. MENI MAD - PSEUDO FAP 


sere Tet > program with translation ¢ Krzs> in 
<p END OF PROGRAM* . t 


HLI*¥ 
TMP DEC* TNP DEC* 


END *> 
MINE MAD - PSEUDO FAP 


SHI 


As an example, the program given previously in the text is reproduced 
below with the equivalents PSEUDO FAP program. 


WHENEVER X LE. 123, TRANSFER TO A 
TRANSFER TO 8 


i be 
ta 


Ww 
4 
co) 
a oe 


TMP DEC 
TNP DEC 
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Appendix 2. 


A canonic system specification for the syntax of SNOBOL. 


The canonic system presented in this appendix defines the syntax 
of SNOBOL as implemented on the 7094 CTSS system at MIT. The language 
is used for string processing and contains statements for string 
matching, replacing, deleting and inserting. The language also 
has a few arithmetic capabilities. Those not familiar with the 
language may find reference 5 useful. 


The canonic system is listed below. X represents a space. 


Ts t AABAC ace XYA2 letter 


2. f O,1,2 ... 7,8,9 digit 

3. x letter dy digit | x,y,. name character 
4. x name character eee ae label character 
5. x name character | Xa a* tA Am string character 


6. x string character | x,! character 


7. | +44, * onexacor 

8. f { tab 

9. ) carriage return 

10. xX spaces t Ay xX spaces 

ll. agb,c,d,e,f£ name character | a,ab, abc, abcd, abcde, abcdef string name 
12. x string character dy string f xy string 

13. x string L '*x! literal 

14. =x letter dy digit qe label character qa label x, ¥4az label 


15. x digit qy integer L x, yx integer 
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16. x string name dy literal x, operand 
17. X,Y operand qe expression qv operator qs spaces 
XSVSY 4 XSVSZ , ZSVSY ) (z) expression 
18. x operand dy expression de term ds spaces 
X,Y 4 28K 4 28y term 
19. x term | Ag x concatenation 
20. x string name } *x* variable name 
21. x,y string name gz integer ex/y* y *x/'z'* fixed length name 
22. x string name j *(x)* balanced name 
23. x string name dy literal du, v term dw indirect name 
<4 Ss spaces t $x 4 SY A Sw), $(usw) , $(wsu) , $(uswsv) indirect name 
24. CAB AC) gee g BeChg eee y= <9) differ 
25 aygeaf string 4 (bec differ j @ce,abf) different 
26. (key) different j (y_x)different 
27. x label dy list t A gy list 
28. x list } A,» in 
29. x4 Y list (ig xy) in 41 label j (ale xluy) in 
30. (<x)in 4 (expan f (wu, xy) in 
31. x label [ x <A) notin 
32. XAY label dfx < ) different d& ¢ z) notin (x¢ zyu) notin 


33. x string name dy concatenation d Ss spaces 


[ xsesy assignment statement 
34. x operand qdy expression qd u variable name qv fixed length name 


¢ w balanced name qe indirect name t zZ 


U4 Va Wa Xs 


scan operand 


35. 


36. 


37. 


38. 


39. 


40. 


41. 


42. 


43. 


44. 


45. 


46. 


47. 
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x scan operand z scan S space x, can 
¢ qd p s 4 ¥82 S 


x operand C 


’y concatenation de scan fs spaces 


} xSZ , XSZS=sSy scan statement 


L -EJECT, -LIST , -NULLOP OP 4 ~PCC A “SPACE , -TITLE 


A 


-UNLIST control word 


% operand fa arguments ; A, K 44K, Kia y ta" (a) arguments 


x string name a arguments L x(a) string name q- 


x(a) system function 


x label q'y indirect name (xcxu) ged) reference label 


xey) a(ug2) reference label t (1 x)alISCD¢9) 44F 009) 


4 Us) (w)¥2) branch 


x scan statement dy assignment statement fe system function 
(ue) branch ds spaces L Cx A) GA) akesuev) 
kyr) gfe) ener) right hand side 

cy) right hand side Cenphxey) ,{eND, A) end card 


{A AA) program string 


(p.agt) rogram strin yx control word t Coca) t) program string 
(react) program string 4 (x.y) right hand side qu label 


0) mes | 


(pcatx dry), (pun,quix),ry) program string 


(Peder) program string q (END, p) notin 4 Key) end card 


fey. ») in 


qx) program 
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Appendix 3. 


Use of Program. 
The program which implements the algorithm allows the user to type in 
a series of canons defining a set of strings, followed by the input he wishes 
to have analyzed. The program then scans the input string or strings for 
correct syntax. If the input is syntactically correct, a message to this effect 
is printed. Further, if the input is defined as only one of several terms 
in the final predicate of the canonic system, the other terms corresponding 
to the input may be produced. If the scan fails, the program identifies 
the character in the input string which was the last character inspected. 
The sequence of messages and the proper responses as the program 
executes on the MIT CTSS system are as follows. 
INPUT CANONS. 
A set of canons may now be input, subject to the restrictions described in 
the text and summarized briefly below. 
1. Canons may contain only one conclusion. 
2. The terms of the premise predicates may contain one and only one 
variable, and no terminal characters. 
3. Left recursion in all terms of a predicate is not permitted. Partial left 
recirsiod evokes a warning message. 
The user inputs the canons according to the following rules which implement 
the Saderiation of the canonic system. 


1. Strings of terminal characters must be enclosed in break characters 


“Aes 


COP OE): 


eit} and the digit 2 when not enclosed in breaks represent 


respectively a tas anda carriage return. 
3.0 Letters represent variables. All variables used in the conclision must 
be defined in the premises. 

t 


4.0 Predicate naiies must consist of six characters or less, and be cuclosed 


in hyphens. 
5. The terms of a predicate are separated by periods. 


6. The premise remarks of a canon are separated by commas, 


~ 


An equals sien replaces the assertion sign. 


8. Spaces and carriage returns are ignored except when enclosed in breaks, 


but each line may not contain more than one canon. 

The examples at the enc of this appendix will serve to clarify the syntax rules. 
After the last canon, the user types ‘end’ at the beyinning of a line. The 
program responds with the following sequence after checking that all predicates 
used as premises are defined as conclusions. 

CONSITENT SET OF CANONS. 

LIST OF DEFINED PREDICATES AND DEGREES. 

The predicates typed in are then listed in the order in which they first appeared. 
INPUT OF SOURCE STRINGS, 


TYPE FINAL PREDICATE. 


shy 


The user responds by typing the predicate name which defines the input string 
he wishes the program to consider. 

TYPE -NONEED-, -NEED- OR -INPUT- FOR EACH TERM. 

TERM NUMBER n OF -predicate- 

At this point the user declares which terms of the final predicate he wishes to 
input and which terms he desires as translation. ‘Noneed' indicates that he 
wishes neither to input the term nor receive it as output. ‘Need’ indicates 

he wishes to receive the term as a translation. ‘Input’ means that he wishes 

to type in an input string for the term. In this case, the program responds. 
INPUT STRING. EXTRA CARRIAGE RETURN INDICATES END. 

The user may now type in input which will be verified for syntactic correctness, 
and for which the program will produce output corresponding to ‘needed’ 

terms. Carriage returns are counted as characters. If the user wishes instead 
to input card images, he may do so by typing in 80 characters or more. The 
input is truncated at 80 characters and in this case the carriage return will 

not be counted. 

After all terms of the final predicate have been considered, the program types 
this message. 

TYPE 0, 1OR 2 FOR DEPTH OF COMMENTS. 

The user responds by typing a single number. If 0, the program will print 

only the final results. If1, it will remark on extraordinary conditions which 
occur. Typing 2 results in messages whenever the program “pops” or “pushes”. 
A larger number will result in the output of various lists which comprise the 


intermediate results of the scan. These lists, while useful during program 
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during program debugging, are rather incomprehensible except to those 

familiar with both the program and the SLIP system, 

The program then types 

SCAN BEGINS. 

When the program returns to the zero level of recursion, it will type out the 

results of the analysis. If the scan succeeds, and if terms are ‘needed’, 

these terms are printed. If there is more than one translation, all will 

be printed. In the examples which follow, the execution time, which is 

printed in seconds at the end of the run, indicates the problems of execution 

speed to be overcome if one wishes to make a practical canonic translator. 
There are three examples of canonic translation. The first is relatively 

simple. It illustrates a scheme for coding messages by replacing the 

letters in the message with their succéssors in the alphabet. The 

second example demonstrates the construction of an expression in MINI MAD 

and the corresponding PSEUDO FAP instructions. The third example, 

an extension of the second, demonstrates the construction of an assignment 

statement in MINI MAD and the translation into PPEUDO FAP. Note that 


no data cells were reserved, although this could have been easily implemented. 


A final example illustrates the error analysis of the program, 
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resume thest{s 
W 2121.4 
INPUT CANOHS. 


= fal 'b! -pair- 

= 'b'.'c! -patr- 

= el td! -pair- 

= 'q' 'e' -patr- 

= ‘el 'f! -pair- 

= fells! -patr- 

X.Y ~pair- = x.y -code- 

X.y -pair-, U.v ~code- = xu.yv ~code- 

u,v -code- = u2 . v' ts the coded message for ‘u2 -messag- 
end 


CONSISTENT SET OF CANOWS. 

LIST OF DEFINED PREDICATES AND DEGREES, 
1. - PAIR-~ 2 
2. - CODE- 2 
3. -MESSAG- 2 

INPUT OF SOURCE STRINGS, 

TYPE FINAL PREDICATE. 

messag 


TYPE -NONEED-, -NEED- OR -!{NPUT- FOR EACH TERM. 


TERM NUMBER 1 OF -MESSAG- 
Input 


INPUT STRING. EXTRA CARRIAGE RETURN ENDICATES END. 
abcdef 

TERM NUMBER 2 OF -MESSAG~ 

need 


TYPE 0, 1 OR 2 FOR DEPTH OF COMMENTS. 
Q 


SCAN BEGINS. 

SCAN SUCCESSFUL, 

TRANSLATED OUTPUT CIF ANY) FOLLOWS, 
TERM NUMBER 2, 

BCDEFA IS THE CODED MESSAGE FOR ABCDEF 
END OF RUN, 


EXITM CALLED. GOODBYE. 
R 7,150+6.983 
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resume thesis 
WwW 2127,5 
INPUT CANONS, 


= 'x! -variab- 
= ‘y! -vartab- 
= '2' -variab- 
= ']' -digit- 
= '2!' -digit- 
= '3' -digit- 
d -digit- = d -integ- 
d -digit-, 1 -iInteg- = di -integ- 
i -tnteg- =i. ' cla ='i2 -expres- 
v “varfab- =v. ' cla 'v2 -expres- 
1 -Integ-, x.y -expres- = i't'x . y' add ='{2 -expres- 
WARNING- PARTIAL LEFT RECURSION IN LINE NUMBER 11 
Vv -varlab-, x.y -expres- = v'+'x , y' add 'v2 -expre3- 
WARNEHG= PARTIAL LEFT RECURDION IN LINE NUMBER 12 
X.y -expres- = x2. ‘this Is the translation for. 'x22 
y' end'2 -examp]- 
end 


CONSISTENT SET OF CANONS. 


LIST OF DEFINED PREDICATES Ai!D DEGREES. 


1. -VARIAB- 1 
2, - DIGIT- 1 
3, 7- INTEG- i 
4, -EXPRES~ 2 
5.  7EXAMPL- 2 


INPUT OF SOURCE STRINGS, 
TYPE FINAL PREDICATE, 
examp!] 


TYPE -NONEED-, -NEED- OR ~INPUT- FOR EACH TERM, 


TERM NUMBER 1 OF -EXAMPL- 
Input 


INPUT STRING, EXTRA CARRIAGE RETURN INDICATES END. 
X*+1234y+521+z 

TERM NUMBER 2 OF -EXAMPL~ 

need 


TYPE U, 1 OR 2 FOR DEPTH OF COMMENTS, 
) 
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SCAN BEGESS, 


SCAU sbeCEoskul, 
TRANS LATLE GoiPet CEP ANY) FOLLOWS, 


TERA HUBER oe, 
THES [PS THE GRAN Get EGH FOR K+125+¥ 452142 


CLA ¢ 
AND #524 
ADD ¥ 
AND =125 
ADD a 
Elvi) 


END OF Rus. 
EAITI: CALLED. actene, 
R lb, /o5*e,30.2 
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resume thesIs 
W 2150.5 
INPUT CANONS. 


'x!) -varlab- 
ty" -variab- 
'z' -varlab- 
"1! -digit- 


'2' -digit- 
'3' -digit- 


—<—ooa tT Inn i ou 


~digit- = d -integ- 

-digit-, i -fnteg- = di -Integ- 

-Integ- = 1. ' cla ='i2 -expres- 

-varlab- =v. ' cla ‘v2 -expres- 

-Integ-, x.y -expres- = J'+'x . y' add ="{2 ~-expr2s- 
WARNING- PARTIAL LEFT RECURSION IN LINE NUMBER 11 
v -variab-, x.y -expres- = v'+'x , y' add 'v2 -expras- 
WARHING- PARTIAL LEFT RECURSION IN LINE NUMBER 12 
v -variab-, x.y -expres- = v'='x . y' sto 'v2 -asstgn- 
x.y cassign- = x2. "this Is the translation for 'x22 

y' end'2 -exampt- 

end 


CONSISTENT SET OF CANONS. 


LIST OF DEFINED PREDICATES AND DEGREES. 


1. -VARIAB- 1 
2. - DIGIT- 1 
3. - INTEG- 1 
&.  -EXPRES- 2 
5. “ASSIGN- 2 
6. -EXAMPL- 2 


INPUT OF SOURCE STAIiGS. 
TYPE FINAL PREDICATE, 
examp!] 
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TYPE -NONEED-, -NEED- OR -1NPUT- FOR EACH TERM, 


TERM NUMBER 1 OF -EXAMPL- 
Input 


INPUT STRING, EXTRA CARRIAGE RETURN INDICATES END. 


y=xt+1234+y+3211+z 


TERM NUMBER 2 OF ~EXAMPL- 
need 


TYPE 0, 1 OR 2 FOR DEPTH OF COMMENTS, 
0 
SCAN BEGINS, 


SCAi SUCCESSFUL, 
TRANSLATED OUTPUT CIF ANY) FOLLOWS, 


TERH NUMBER 2, 
THIS !S THE TRANSLATION FOR Y=X+123+Y+3211+Z 


CLA Z 

ADD =35211 
ADD Y 

ADD =123 
ADD xX 

STO Y 

END 


END OF RUN, 
EXITM CALLED, GOODBYE, 
R 18,866+3,400 
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resume thesIs 
W 2200.4 
INPUT CANONS, 


= ‘this Is a test sentence'2 -exampI- 
end 


CONSISTENT SET OF CANONS. 

LIST OF DEFINED PREDICATES AND DEGREES, 
1.0 -EXAMPL- at 

INPUT OF SOURCE STRINGS, 

TYPE FINAL PREDICATE, 

examp1 


TYPE -NONEEN-, -NEEN- OR -INPUT- FOR EACH TERM. 


TERM NUMBER 1 OF -EXAMPL- 
input 


INPUT STRIiG. EXTRA CARRIAGE RETURN INDICATES END. 

this fs not a test sentence 

TYPE 0, 1 OR 2 FOR DEPTH OF COMMENTS. 

Q 

SCAN BEGINS, 

SCAN FAILED, SYNTAX ERROR IN INPUT STRING(S), 

NO TRANSLATED OUTPUT, 

LAST CHARACTER INSPECTED IN TERM 1 WAS N IN MIDST OF FOLLOWING COHTEXT 
THIS 1S NOT A TEST SENTE 

END OF RUN. 


EXITid CALLED. GOONBYE, 
R .5983+2,766 
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Appendix 4. 


Program Listing. 


The program listing for the program which implements the canonic 
translation algorithm is contained in this appendix. The program may 
be divided into three parts: a preliminary phase which verifies the 
syntax of the canons typed in and assembles them into a SLIP list 
structure, the recursive scanning routine which forms the major part 
of the code, and a final routine which inspects and prints the 
results. Understanding the code requires a thorough comprehension 
of the SLIP system developed by Weizenbaum (7). The lack of elegance 
in the program is quite the fault of the author. 

The following table identifying the major parts of the code 


may prove useful. 


Label Lines Purpose of Code 


NEWORD 57-74 Inputs a line from the typewriter, feeds characters 
one at a time to the canon-analyzing routine. 

107-285 Reads predicate names and makes various checks 
(left recursion, degree same as before, etc.) and 
assembles into list structure. 

383-395 Identifies next variable to be encountered should 
be marked as the one to use if the variable is 
needed in the later phase. 

396-434 Inputs variable and assembles into SLIP structure. 

EVAL 444-472 Checks that all variables are defined. 
PUTIN 505-574 Assembles list structure for input to scan program 


at zero level. 


LUPOOQ 


OUTCHK 


LUPOO8 


PUSHIT 


PRMCHK 


ASSMBL 


POP 


592 


603-617 


621-671 


677-697 


717-855 


871-893 


897-977 


981-1038 


1042-1075 


POP] 1080-1164 


POP2 


1165-1196 


THKGOD 1200-1344 


HERAUS 1348-1350 


1355-1381 
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Beginning of recursive routine. It is to this point 
that the program returns when "pushing". 

Makes an "object time'’ check for left recursion. 
Creates the 'needed' list of variables for which 
definitions must be found from other than the input 
string. 

Handles multiple results, each of which must 

be analyzed in turn. 

Compares input string with conclusion, "pushing" 

to find definition of variables if necessary. 

Saves state of program and returns to the beginning 
of the scan routine. 

Checks premises of a canon. 

Assembles results of scan for next higher level 
before "popping". 

Uncovers the state of the program and goes to 
appropriate return routine. 

Analyzes return resulting from "push" during 

scan of conclusion. 

Analyzes return resulting from "push" during 

check of premises. 

Outputs results of scan. 

Exit. 

Obtains character from input data area, using 


pointer furnished by caller. 


veer] ‘ ‘ 
i HsAvel ! et Pouting at top 
e eitihe to pyc gat ft 


PRLS * ated 
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SEALER EERE EERE REE EEE TEESE EEE ERE E EERE REE ERE ERE E EE ERE 


M5364 5163 THESIS - MAD FOR M5364 5163 is) 


CANONIC TRANSLATION PROGRAM. 

THIS PROGRAM EMPLUYS A CANONIC SYSTEM AS A BASIS 
FOR RECOGNIZING DEFINED SETS OF STRINGS. THE 

FIRST PART OF THE PROGRAM VERIFIES THE SYNTAX OF 
THE CANONIC SYSTEM WHICH IS INPUT AND 

ASSEMBLES IT INTU A SLIP LIST STRUCTURE. 

THE SECOND PART OF THE PROGRAM OPERATES RECURSIVELY 
TO DETERMINE WHETHER A GIVEN STRING IS A MEMBER 

CF A DEFINED SET OF STRINGS, OR WHETHER THE GIVEN 
STRING IS ONE ELEMENT OF AN ORDERED N-TUPLE 

whHICH IS A MEMBER OF A DEFINED SET. IN THE LATTER 
CASEs THE OTHER ELEMENTS OF THE N-TUPLE MAY BE 
CUTPUT AS TRANSLATIONS. 


RPRRBRARDRAAARARPARRPRARA 


N'S INTEGER 
BCGLEAN EQUAL, EOLINDO, STRTND, ERRS, NOTIN, INy SOMERCs ALLRC 
1 ,LEMPTY, INP, DOLIND 
OIMENSION BUFFER (14), INPUT (1009) 
R 
RIANITIALIZATION OF SLIP SYSTEM. 
R 
INITAS. (0) Fi Gaend Sms yee eee bo: Geteeesatee 2 
BEGINS LIST. (SYSTEM) 
- : LIST. (NAMES) safe Sete) Shs a 
LINE = 0 
CEFNUM = 9 enteue Ra gersics ANY aoe restates : 2 ewe - 
R 
- RINITIALIZATION OF SYSTEM ws be Sa eyaSelaceesn 
R 
PRINT COMMENT $INPUT CANONS.$ tg ee fe we a 
PRINT COMMENT $ $ 
¥*'O SKIP see ee ee Sey hae bem 


R 
RINITIALIZATION PRIOR TO READING A CANON 
R 


LOOPL TRALST. (VAR} 
IRALST. (SVEVAR) 

SKIP OEF = LIST. (9) Aa” Soe ree mien mat A eid hes 
LIST. (VAR) 


LIST. (SVEVAR) Gaal a Sed demos: amc s atieddica hinds Betntch btmace 
NEED = LIST. (9) 


CCLIND = OB 
CCND = 1 
ECUAL = 0B _ oy Sei 
ECLIND = 18 
NEWPRM - PREM = LIST. (9) Bh as, edge ott ase yey 
TRMNUM = J 
NEWTRM TERM = LIST. (9) 
R 


RINPUT OF CANONS, CHARACTER BY CHARACTER, RIGHT 
RACJUSTED IN WORD 


é R Bra ee 
NEWORD WIR «NOT. ECLIND, T'O GETW 
RDLINE NUMB = RDFLXC. (BUFFER: 84) 
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LINE = LINE + 1 
ECLIND = UB 


PCS = 6 
I= -1 
STRTND = 18 
GETW W'R POS .GE. 6 
POS = 9 
[Ts=.t¢*kl 


WORT = BUFFER (1) 
E'k 
WtR NUMB .E. dy THO ROLINE 
NUMB = NUMB = 1 
W'R NUMB 2E. Gy EQLIND = 18 
PCS = POS + 1 


WCRD = WORT .RS. 30 .V. $ OS 
WCRT = WORT «LS. 6 
R 
RCHECK TO SEE IF READING ANSWER TG QUESTIONS. 
R 
WIR COND .E. 8 
T*Q RDANS 
R 
RCHECK FOR REMARK AND ENO CARDS 
R 
CR STRTND 
STRTNO = OB 
W'R WORD «Ee §$ *$, T*O RDLINE 
W'R BUFFER (9) «Ae T7777TUIOGIIK .E. SENDILVOS 
W'R COND .E. ly T*O EVAL 
PRNTP. (ERRL) 
V'S ERR] = $LAST CANON IS INCOMPLETES, 377777777777 
1K 
T*O ERRIN 
Er: 
Ett 
R 
RCHECK TO SEE IF READING *LITERAL* OF TERMINAL CHARACTERS 
R 


W'R COND .E. 6 
W*R WORD .2E. BREAK 
COND = 2 
OrE é 
NEWBOT. (WORD, TERM} 
W'R EQLIND, NEWBOT. (606960606055K_, TERM) 
Eft 
T'O NEWOROD 
G'R WORD .Ee & $ 
T'O NEWORD 
R & 
RCHECK TO SEE IF READING PREDICATE 
R 
C*R COND .E. 7 : 
W'R WORD .NE. $ -$ 
LENGTH = LENGTH + 1 
W'R LENGTH .E. 7 
PRNTP. (ERR2) 
V*'S ERR2 = $T00 MANY CHARACTERS IN PREDICATES 
Ly 377777777777K 
T'O ERRIN 
Ett 
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RBUILD UP PREDICATE, CHARACTER BY CHARACTER 


R : 
NAME = NAME LS. 6 «Vs WORD eA. 000009000977K 
T*O NEWORD 
R 
RSAVE PREDICATE NAME JUST READ IN 
R 
O'E - 
EQUIV = ITSVAL. (NAME, NAMES) 
-W'R EQUIV .E. @ : eee 
DEFNUM = DEFNUM + 1 
EQUIV = DEFNUM .Ve FRMNUM .LS. 18 
NEWVAL. (NAME, EQUIV, NAMES) 
4h ene Ett - . : Peels 
CHKNUM = EQUIV .RS. 18 
EQUIV = EQUIV .A. TTT7TTIK 
R 
RCKECK DEGREE OF PREDICATE 
R 


- W'R TRMNUM .NE. CHKNUM 
P*T ERR15, NAME, LINE 
: V'S ERR15 = $H'DEGREE OF PREDICATE -—'sCér 
1H*- IN LINE NUMBER',1I3,H* NOT AS PREVIOUSLY DEFINED'#$ 


T'S ZAPALL 
Eft 
R GAN AA OL : 
RIF CONCLUSION; MAKE VARIOUS CHECKS AND ADD CANON TO SYSTEM 
R hae J 45 Sei CS ke Somes 
WIR EQUAL 
R . a Rete = 
RCRECK FOR LEFT RECURSION 
R 2 


LRECUR = SEQROR.(DEF) 
Loop3 = = CHKPRM = SEQLR. (LRECURy F) : aa 
WR F .G. DO, TO CHKILL 
eo -----sn-- -PRMPRM = TOPs (LSTNAM. (CHKPRM)) 
1 Ae 777777K 
fae ee oe aa WIR PRMPRM NE} EQUIV, T°O LOOP3 
CHECKC = SEQRDR. (PREM) 
pane ee ees ees CHECKP = SEQROR. (CHKPRM) ote 
SOMERC = OB 
Soe ALERO = 1B 
Loops TERMP = SEQLRe (CHECKP, F) 
.. cae von ----TERMG = SEQLR. (CHECKC, G) 
WIR F .G. 9 OR. G .G. 0 
co eee WER SOMERC sANDs ALLRC 
PRNTP. (ERR11) 
ee V'S ERRL1 = $COMPLETE LEFT RECURSION 
L$, 3777777777T77K 
5 abe geeas .- =. TQ ERRIN 
O'R SOMERC 
Bie age wemeneien Be es ete ee we. POT ERRTZ¢. LINE + - 
V°S ERR12 = $H*WARNING- PARTIAL LEFT 
-- 1 RECURSION IN LINE NUMBER', [3#$ 
Eth 
£ : : = -. T*O0 LOOPS 
Eft 
- - TERML = SEQROR. (TERMP) obi wehae) 


TERN2 = SEQROR. (TERMC) 
Loors _ .-..+-.-- PPPREM = SEQLR. (TERML, F) 


CONCLU SEQLR. (TERM2, G) 


CHKILL 
ADVANP 


"ADVANT 


“ADVANV 


~~ GOOFL1 


- 1 CHKPRM «AND. PPPREM 


R 


WIR F 
= WIR OF 


6 


0G 
of 


1 


» 9 -OR. G oGe 0, 
« 0 AND. G eke O 


T'O LOOPS 


W'R PPPREM .E. CONCLU, 


-~O'R F 


cone EOL 
ALLRC 


of 


o£ 


Ett 


e 0 eAND. G Ee O 
« CONCLU 


SOMERC = 18 
T'o LOOPS 


vB 


--- T*O LOOP4 


T*O LOOPS 


W'R TOP. (LSTNAM. (CONCLU}) .E. 


RCHECK FOR ILLEGAL VARIABLE CONSTRUCTION, I.-E~ 


R 


SEQRDR. (DEF) 


W'R VARCNT Ge 1 
sama. PRNTP. CERRI6) 


ly 377777777777K 


Loy BU77777777777K | 


Hg de ekad oo-<-4s VARCNT 


RA PREMISE TERM WITH MORE THAN A VARIABLE. 


READP = 
PREMP = SEQLRe (READP, F) 
WIR F .G. 0, T'O NOUSE 
READT = SEQRDR. (PREMP) 
TERMP = SEQLRe (READT? F) 
woes WER F 0G. Oy T#O ADVANP 
NOTIN = OB 
IN = OB 
VARCNT = 0 : 
~---READV = SEQRDR. (TERMP) 
VARIAB = SEQLR. (READVy F) 
soneeoe WIR F oGe 0 selene 


V'S ERR16 = $VARIABLE NOT ISOLATEDS 


To ERRIN 


ome ene O'R VARCNT ole 1 


EL 


PRNTP. (ERR22) 


--~ TO ERRIN 


we eeeee « F'O ADVANT 


EFL 
.--WER OF 
VARIA 


ol 
8 


e OF T*O GOGFO1L 
TOP. (VARIAB} 
VARCNT + 1 


READC = SEQRDR. (SVEVAR) 


—~- TERMV 
W'R F 


0G 


~-------. NOT 


REA 


~~ --TERML 


WIR 


P*T NOTTYs VARIAB 


L V7TT7TTTTTK 
ee eee SUBST 0. (VAR TAB 


OY eReAOL 


SEQLR. (READCy F) 
- O 
IN = 18 
OL = 


F .Ge 9 


NEWBOT. {VARIABy 


~----- V9S NOTTY = $H*NEED ',C6#$ 


T'O AOVANV 


-- T*O ADVANV 


SEQRDR. (NEED) 
SEQLR. (READL, F) 


oVe 


NEED) 


-~.. GIR VARIAB 4A. T7777777T7TK wEn 


TTK1Os 


TERML «Ae 


SEQPTR. 


wae e--V9S ERR22 = STERM WITHOUT VARIABLES 


NOUSE 
ADVANN 


ADDCAN 


62 


T'O ADVANL 


O'R TERMV .E~ VARIAB 
IN = 1B 
T*'O ADVANV 
Ett 
--. T*O LOOP6 
R 
RCKECK FOR UNUSED VARIABLE (ONE WHICH OCCURS ONLY ONCE 
RIN CANON) 
R- . 
READL SEQRDOR. (NEED) 


~  . .+--~- TERML = SEQLR. (READL, F) 
WIR F .Ge 04 T*O ADDCAN 
WR TERML eAe T7K1O .E~ 77K1O 
TERML = TERML eAe 6077 77777777TK 
T'Q ADVANN 
Eft 
PST ERR17, TERML, LINE 
V'S ERR17 = $H'WARNING- VARIABLE ,RC1l,_ 
1H* IN LINE NUMBER',1I3,H* UNUSEDt#$ 
DELETE. (SEQPTR. (REAODL)) 
2 T'O ADVANN : 
MAKEDL. (PREM, DEF) 
MAKEDL. (NEED, PREM) 
EQU = ITSVAL. (EQUIV, SYSTEM) 
--- WIR EQU .E. 0 
EQU = LIST. (9) 
aon te ---- NEWVAL. (EQUIV, EQU, SYSTEM) 
E*L 
wees NEWBOT. (DEF, EQU) 
COND = 1 
T'O tooPl 


RIF NOT CONCLUSION, SAVE PREMISE AND PREMISE PREDICATE 
R 
<s _. OE . : 
NEWBOT. (PREM, DEF) 
Beet eee TEMP = LIST. 09) 
MAKEDL. (TEMP, PREM) 


coe ee ee es NEWBOT. (EQUIV eVe TRMNUM .LS. 18, TEMP) 


COND = 3 
. TG NEWPRM 
, EL 
R 
RCHECK FOR BREAK BETWEEN TERMS Agee Ss, CAAe gets 
R 


C*'R WORD .E. $ o$ 
W'R COND .NE. 2 
~------ PRNTP. (ERR3) : 
V'S ERR3 = SMISPLACED PERIODS, 377777777777K 


seen TIO ERRIN ceeenere ote eee ee ne 
O'E 
.- NEWBOT. (TERMs PREM} 
TRMNUM = TRMNUM + 1 
COND = 4 
T'O NEWTRM 
Eft - 


R 
RCHECK FOR BEGINNING OF NAME 
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see eee ee = O'R WORD LE. $ -$ 
W'R COND .NE. 2 
-ss ss PRNTP’ CERR4) : 
V'S ERR4 = $MISPLACED HYPHENS, 377777777777K 
PRS Mee hire ease bh Be T*O ERRIN te : 


---.-. COND = 7 Sf is haca te ciel eae teeth 
LENGTH = 0 
Aoyine. afte NAME = $ $ ected 
NEWBOT. (TERM, PREM) 
he ete Fiera : .. -- TRMNUM = TRMNUM + 1 ees 
T*O NEWORD 
soieuere ant bheoe Iba von txas 
R 
- RCHECK FOR BEGINNING OF TERMINAL CHARACTER LITERAL 


R 
C'R WORD .E. $ *$ .OR. WORD .E. $ °#$ .ORe WORD Eo 
1 ¢ /$ 
mene - os W'R COND .E. 3 - wee eee 
P'T ERR1D, WORD, LINE 
sone “- V'S ERR1LD = SHeMISPLACED *osRCIeHe* IN LINE NUMBER. 
1,13#$ 
bath ets, ons T*'O ZAPALL b Agia See 
Ore 
eee eee sees = BREAK = WORD Bega Seee ate a+ aes 
COND = 6 
see eee nae T'O NEWORD ee ee ee eee 
Eft 
RCHECK FOR COMMA AFTER PREDICATE 
Mae Sa oR isi ote ax Sia : 
O'R WORD .E. $ o$ 
aoe -W'R COND .NE. 3 aa ate ee ee eee meee ee 
PRNTP. (ERRS) 
ceowee n= W'S ERRS = $MISPLACED COMMAS, 377777777777K 
T'O ERRIN 
SScinbe su2lONe «<<! Oe ent Sen cent oe amet had it cat ae 
COND = 4 
a a. TO NEWORD Bi ees ise dete tee actin telenysy Suis 
Ett 


fore pete R Paes ak. $ é A Regie 
RCHECK FOR EQUALS, BEGINNING OF CONCLUSION 
4a Wiest Ss ere eee ee eee eee eh ee S . 
C'R WORD .E. $ =$ 
cee ene eee R COND «NE. 3 «AND. COND .NEs 1 oe Ea 
PRNTP. (ERR6) 
a ae slog Gtaiwtein £2 V'S ERR6 = SMISPLACED EQUALS SIGNS, 377777777777K 
T'O ERRIN 
Stay, lay oN rink os ao. OTE. eee aoc se He es : 2 dts 2 
EQUAL = 18 
spd thctewe ed Subd im nto es /GOND, <= -4& pe ASE eh Eee, Pee pe ait Sine: Es 
T*0 NEWORD 
aes eae EtL Seow . 


R 
£2e - RCKECK FOR TAB 


R 
Aaa on iene ---C*R WORD .E. $ 1$ 
W*R COND .E. 3 
cee es eens = -PRNTP. (ERR13) Melton ae S528 Le 
V'S ERRL3 = SMISPLACED TABS, 377777777777TK 
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T'O ERRIN 
O'E ots go Laon inact es tN eeltilenst eye : 3 
NEWBOT. (606060606C72Ky TERM) 
-COND = 2 wards Tamils ce ae ae ae Re RS tease tae 
T'O NEWORD 
~ EAL. ; sich calyetcichacgec on ease teat cee ee Oe ais castle 
R 
RCKECK. FOR CARRIAGE RETURN : Jain Ahern Ss eee fe ad aS aay 
R 
C*'R WORD .E. $ 2S kee ee ee eee tao nee Ge 
W'R COND .E. 3 
~-PRNTP. (ERR14) wooo 


V'S ERR14 & SMISPLACED CARRIAGE RETURNS» ara 
177K oe & 


To ERRIN- 
L-QteE . hisce fneeh gh eta 2 
NEWBOT. 1606060606055K, TERMD 
- COND = 2 iter hie SARE CASS os. ohio 
T*'O NEWORD 
Bette Soe AE WL cis: ae kee hn a Seo dae send Stes o bash yacd npn d Parle ees 
R 
- RCHECK FOR $. INDICATES VARIABLE NEXT ENCOUNTERED aie ee com 
R SHOULD BE MARKED FOR. NEED. 
oR puget aie peta 2 OY cele Ao oSas ate 


C'R WORD .E. 696060606053K 
WR COND .Eo 3 efRe EQUAL’ Sn woe Soe Sree Ren nh AS SESS 
PRNTP. (ERR25) 
-~ -+--V"'S ERR25.= SMISPLACED DOLLAR SIGNS, 377777777777K 


T'G ERRIN 
OG eee Pee Eh oe eee ae SE ee ee 
DOLIND = 18 
tre : T*O NEWORD Rane petites nb ge hae 
Eft 
R ant StS ce oa 2 coy tera ens 
RASSUME CHARACTER 1s VAR TABLE 
R 4S; Ssark 4, ibaoe vatbn sas 
Cre 
W'R COND Ee 3 Sy + Si Gawain a aRaval amy eaem iss 
PRNTP. CERR7} 
sane V9S ERR7 = SMISPLACED VARIABLES, 377777777777K 
T*O ERRIN 
Ore ss SPD: insets ae 
» COND = 2 - 
~--++- VARIAB = ITSVAL. CWORD, VAR) - -- 
W*R EQUAL 
we eee WER VARTAB cE ew Q 0 vi cites getdate s Bases 
PRNTP. (CERRS) 
: cee ee eee as VES ERRB = SUNDEFINED VARIABLES, 37777777 
L7T77K 
Se eee eee eee TO ERRIN Lot yep uate as 
E*e 
fee -NEWBOT. (VARIAB, TERM) aa ua Pea aaa ats 
NEWBOT. (WORD, SVEVAR) 
Ore Aes 7 4 


WR VARIAB .E. 0 
-VARIAB = LIST. (9) 
TEMP = LIST. (9) 
wc ee MAKEDL © UTEMP, VARTAB) eogg eo esate 
NEWBOT. (WORD, VARTAB} 
ev eee eee --------- NEWVAL. (WORD, VARIAB, VAR) 


ONLYON 


ERRIN 


ZAPALL 


EVAL 


tooPpz2 


TYPQUT 


FNONMB 


SPCNMKB 
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O'R DOLIND 

POPTOP. (LSTNAM. (VARIAB)) 
Ore 

T*Q ONLYON 
Ett 


NEWBOT. (PREM, LSTNAM. (VARIAB)} 
NEWBOT. (VARIAB, TERM) 
DOLIND = OB 
Ett 
T'O NEWORD 
Ett 
Eft 
R 
RIN CASE OF ERROR, CANON IS ERASED AND MAY BE RECONSTRUCTED 
R 
P'T ERRy LINE 
VtS ERR = $H' IN LINE NUMBER',138$ 
IRALST. ( TERM} 
TRALST. (PREM) 
TRALST. (DEF) 
T'O LOOPL 
R 
RVARIOUS ERROR CHECKS FOLLOW 


R 
RCHECK TO SEE IF ALL NAMES ARE DEFINED 
R 
ERRS = 9B 
OLIST = LSTNAM. (NAMES) 
SEQCHK = SEGRDR. (OLIST) 
NAME = SEQLR. (SEQCHK, F) 
CEFNUM = SEQLR. (SEQCHK, TEMP) «Ae T77777K 
W'R F 2G. 3 : 
WPR ERRS 
PRNTP. ({COMM2) : 
V"'S COMM2 = $PLEASE DEFINE ABOVE PREDICATES.$, 7777 
LI7TT77777K 
T*O LOOPL 
Ett 
PRINT COMMENT $ $ 
PRNTP. (COMM1) 
V*S COMM1 = $CONSISTENT SET OF CANONS «Sy T77777777777K 
T*'O TYPOUT. 
Eft . 
QEFCHK = ITSVAL. (OEFNUM, SYSTEM) 
wW'R DEFCHK LE. 9 
ERRS = 18 
P*T ERR9s NAME 
V'S ERR9 = $C6, Ht UNDEFINED" #$ 
Eft 
T*O LOOP2 
R 
RPRINT LIST OF PREDICATES. 


R 

PRINT CCMMENT $ $ 

PRINT COMMENT $LIST OF DEFINED PREDICATES AND DEGREES.S 
PRINT COMMENT $ $ 


T=tel 
SEQCHK = SEQROR. (LSTNAM. (NAMES)) 
NAME = SEQLR. (SEQCHK, F) 
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CEFNUM = SEQLR. (SEQCHK, G) 
PRMNUM = DEFNUM «RS. 18 
DEFNUM = DEFNUM .A. T77777K 


WR Fo oGe Ss T'O PUTIN 
w'R DEFNUM Ee I 
P'T NOTE3, I» NAME, PRMNUM 
V'tS NOTE3 = $13eH*.2 -—"sC6yH'-* el 4r 
T'O FNONMB 
Ett 
T'O SPCNMB 
R 
RENPUT OF SOURCE STRINGS AND *NEED* FLAGS. 
RA POINTER TO THE INPUT STRING IS USED IN 
RTHE LIST, RATHER THAN THE INPUT ITSELF. 
RTFKE ADDRESS PORTION OF THE WORD CONTAINS THE 
RNUMBER OF THE LAST CHARACTER INPUTTED 
RAND THE DECREMENT CONTAINS THE NUMBER OF 
RTFE FIRST. THOSE PARTS OF THE STRINGS 
RDERTIVED FROM THE CANONIC DEFINTIONS 
RARE LEFT AS SINGLE CHARACTERS IN A SLIP 
RCELL. 
R 
PUTIN LIST. (MAXINP} 
IRALST. (NAMES) 
PRINT COMMENT $ $ 
PRINT COMMENT $INPUT OF SOURCE STRINGS.S 
RETRY PRINT COMMENT $TYPE FINAL PREDICATE.$ 
READIN. (NAME) 
ECUIV = ITSVAL. (NAME, NAMES) 
CHKNUM = EQUIV .RS. 18 
ECUIV = EQUIV .As T7T7TTK 
WIR EQUIV .E. 9 
P*'T COMM4, NAME 
V'S COMM4 = $H'-',C6,H'- NOT FOUNDSe$ 
T*Q RETRY 
EL 
LIST. (SEARCH) 
INP = OB 
LNECNT = 9 
PRENT COMMENT $ $ 
PRINT COMMENT $TYPE -NONEEO-, ~NEED~ OR -INPUT- FOR EACH TERM 
1.$ 
THROUGH READY, FOR TRMNUM = ly 1s TRMNUM .G. CHKNUM 
PRINT COMMENT $ $ 
P*T COMM3, TRMNUM, NAME 
V'S COMM3 = SH'TERM NUMBER", [2,H® OF —*yC6,H*-'*H$ 
READIN. (ANSWER) 
- W'R ANSWER 2E. $ NEEDS 
NEWBOT. ($NEEOD$, SEARCH) 
T*O READY 
OfR ANSWER .E. $NONEEDS 
NEWBOT. ($PLEASE$, SEARCH) 
T'O READY 
O'R ANSWER Ee $ INPUTS 
ENP = 18 
PRINT COMMENT $ $ 
PRINT COMMENT $INPUT STRING. EXTRA CARRIAGE RETURN 
LIANDICATES END.$ 
PRINT COMMENT $ $ 
SAVI {LNECNT *® 6 + 1} .LS. 18 
TEMP LIST. (9) 


ERT Bee OPPs § 


Sve it 


READ: : Bae 


2: 
’ oe 4, Pate » (ESYSTEME, SYSTEM) 
fy c STS Pst Sd. 
4 a i i 
Lipo 
Lin) 
1 
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R 
CHKR = SEQROR. (STACKB) 
RECUKR CKK] = SEQLR. (CHKRe FI 
CHK2 = SEQLR. ({CHKR, TEMP} 


WIR F «Ge J T'Q QUICHK 
W'R CHK1 «NE. DEFINE: T'G RECURR 
WIR LSTEQL. (SEARCH, CHK2) Ee S 
W'R SWITCH .G. 9 
PRENT COMMENT $LEFT RECURSION DETECTED.S 


Ett 
T*O LUPOU2 
aa G 
T'*G RECURR 
R 
RCEVELOPE "NEEDS LIST. 
R 
OUTCHK FINO = LSSCPY. (SEARCH) 


TEMP1 = LIST. (9} 
MAKEDL. (TEMPl: FIND) 
NEWTOP. (SEQROR. (FIND), TEMP1) 


TEMP = LSTNAM. {DEFINE) 

NEED = LSSCPY. (LSTNAM. (TEMP)) 
PREM = SEQROR. (TEMP) 

LCOK = SEQRCR. (FIND) 


LEST. (NONEED) 
LUPO 3 PRMISE = SEQLR. (PREM, F) 
W'R F .Ge Os T*O PRINED 
SEE = SEQLR. (LOOK, F) 
FANOTRM = SEGROR« (PRMISE) 
LUPO. 5 VARIAB = SEQLR. (FNDTRM, G) 
W'R G «Ge OF TIO LUPOI3 
WIR G .E. 9 
VARIAB = TOP. (VARIAB) 
WIR SEE «Ee $NEED$ 
NEWBOT. (VARIAB, NEED) 
O'R F .E. 9 
NEWBOT. (VARIAB, NONEED) 
E*L 
Eft 
T#O LUPYOS 
PRTNED W'R LEMPTY. ({NONEED)+ T*O LUPINE 
TEMP1 = POPTOP. {NONEEC) 
FNOTRM = SEQROR. (NEED) 
LUPO 4 VARI AB SECLRe (FNOTRM, F) 
W'R F eGe 9, T'O PRINED 
WIR VARLAB .NE« TEMP], T'O LUPIO4 
CELETE. (SECPTR. (FNOTRM)) 
T8O LUPLN4S 
LUPO 6 IRALST. (NONEED) 
WtR SWITCH .-LE. ly TO STRTSC 
TEMP SEQRDR. (NEED) 
LUPO1S TEMP2 SEQLR. (TEMPl, F) 
WR F .Ge Or T*O STRISC 
P'T NOTEJ+ TEMP2 
V'S NOTES = $H*NEED 'yRCL,H* ATS 
T'O LUPC1O 
R 
RGET CONCLUSION QF CANON, 
R 
STRFISC NEWBOT. (FIND, STACK2) 
WIR SWITCH 2G. 45 PRILST. ($NEED$, NEED) 
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CCNCL = SEQRDR. (TEMP) 
LUPQ.7 TERM = SEQLR. (CONCL, F) 

WER F eGe Js TO PRMCHK 
ECLIND = 18 

IN = OB 

INP = OB 
R 
RGET NEXT TERM OF CONCLUSION. 


PIECE = SEQRDR. (TERM) 
Tt*O LUPOLIL 
LUPO.8 WIR INy T'O GETINA 
LUPO 9 InN = 08 
WIR LEMPTY. (STACK1) 
W'R INP, T*O LUPIO7T 


EOLIND = 98 
LUPO1L1 CHAR = SEQLR. (PIECE, G) 
W'R G .G. 0 
W'R EOLIND 
INP = 18 
OtE 
T'O LUPJIT 
E'L 
Ett 


R 
RCHECK TO SEE IF SCAN HAS FAILED. 
R 


WR LEMPTY. (STACK2), T'O LUPIO1 
TEMP = STACKL 
STACK1 = STACK2 
STACK2 = TEMP 
EL 
FIND = POPTOP. (STACKL) 
SEE = LSTNAM. (FIND) 
READS = POPTOP. (SEE) 
W'R EOLINO 
SEQLR. (READS, F) 
WtR F wl. O .OR. INP 
NEWTOP. (READS, SEE) 
NEWBOT. (FIND, STACK2) 
INP = 1B 
T'o LuPOo9 


E‘L, 
EL 


TEMP = CONT. (SEQPTR. (READS? + 1} 
HCLDP = TOP. (TEMP) 
HCLOT = BOT. (TEMP) 
WIR G ole 2 
R 
RTERMINAL CHARACTER IN CONCLUSION. CHECK STRING. 
R 
LUPOLS , W*R LEMPTY. (HOLOT)+ T*O NGOOD 
WORD = POPTOP. {HOLDT) 
STRIND = 08 
W'R WORD .Le 9 
W'R CHAR .E£. WORD 
NEWBOT. (WORD, HOLOP) 
NEWBOT. (FIND, STACK2) 
NEWTOP. {READS, SEE} 
T'O LUPODS 


LUPOLO 


TRAOVR 


SKPOVR 


JMPOVR 


NGOOD 


LuPpo21 


LuPO23 


LuPo2T 


O'E 


1 .E. 


Eft 
R 
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Ore 
-T'O NGOOD 
E't 


OBJECT = CHARAC. {WORD) 
W'R OBJECT .E. CHAR 
TEMPL = WORD .As TTTTITKE 
W'R LEMPTY. (HOLOP}, T*Q TRAOVR 
TEMP = POPBOT. (HOLDP) 
W'R TEMP 2G. 0 AND. (TEMP .Ae T7TT7ITK) 


{WORD .RS. 18) - lp T*O SKPOVR 


NEWBOT. 
TEMP = TEMPL .Ve 
TEMP = TEMP + 1 
NEWBOT. (TEMP, HOLDP} 
W'R TEMP] .GE. WORD .LS. 18, T'O JMPOVR 
WORD = WORD + 1K6 
NEWTOP. (WORD, HOLDT) 
WR STRTND, T#O LUPII5 
NEWBOT. (FIND, STACK2) 
NEWTOP. (READS, SEE) 

pane T'O LUPODS 

O'R OBJECT .E. SOONULLS 
STRTND = 1B 
T*O LUPOLS 

O'R OBJECT .E. SOO0ENDS 
T'O LUPQLS 


(TEMP, HOLOP) 
(WORD .RSe 18) - 1 


- Ore 


IRALST. 
W'R IN 
CHAR = SAVECH 
Sot ee sha --- G6 = SAVEG 
Ett 


(FIND) 


ess FO LUPODD 


EL 


RVARIABLE IN CONCLUSION. - 


R 
Cre 


VARTAB = TOP. 
DLIST = ITSVAL. 


RCHKECK TO SEE IF VARIABLE PREVIOUSLY DEFINED. 


(CHAR) 
(VARIAB, FIEND) 


.--- WIR DLIST .NE. 0 


SAVECH = CHAR 


-SAVEG = G . cane 
IN = 1B 

Gs-l 

OLIST = SEQROR. (DLIST) 

CHAR = SEQLR. (DLIST, F) 


W'R F 2G. O, T*O0 GETOUT 
W'R CHAR. «Le Jy T*O LUPO27 
IT = CHAR 

CHAR = CHARAC. (1) 

I= 1 + 1K6 
W'R CHAR .E. 
W'R CHAR LE. 


SOOOEND$, T*O LUPO2Z1 
SOONULL$, T'O LUPO23 


ALLRC = 1B 
TO LUPOLS 
ALLRC = OB 


- GETINA 


GETOUT 


LUPO31 


LUPO35 
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T'O LUPJ15 
FIND = POPBOT. (STACK2) 
REAOS = POPTOP. (SEE} 
W'R ALLRC,y T*O LUPO23 
T'O LUPO2L 
CHAR = SAVECH 
G = SAVEG 
NEWBOT. (FINDe STACK2) 
NEWTOP. (READS, SEE) 
More T'O LUPIID9 

Est 
R 
RVARTABLE IS NOT YET DEFINED, SO PROGRAM 
R MUST SEARCH RECURSIVELY. SELECT PREMISE WITH WHICH 
R TO SEARCH FOR VARIABLE. 
R 

PRPNTR = TOPs. (LSTNAMes (CHAR)) 

PRMNUM = TOP. {LSTNAM. (PRPNTR}} WA. FITTTIK 
R 
RCKECK OTHER TERMS {AND VARIABLES) IN CHOSEN PREMISE. 
R 

LIST. (PUSHES) 

REMPTR = SEQRDR. (PRPNTR) 

TERM = SEQLR. (REMPTRe F) 

W'R F eGe Oe T'O PUSH] 

TEMP = TOP. (TERM) . ies 

ZIEL = TOP. (TEMP) 
R : 
RINSERT STRING FOR VARIABLE PRESENTLY SOUGHT. 
R 3 : 
W*R ZIEL eE. VARIAS 

TEMP = LIST. (9) 

NEWBOT, (TEMP, PUSHES) 

--- TEMP2 = LIST. (9) 

NEWBOT. (TEMP2s TEMP) 

TEMPL = LSSCPY. (HOLDT) 

NEWBOT. (TEMP1l», TEMP) 

ABANDN. (TEMP1) 
OTE 
R - ‘ 
RSEE IF OTHER VARIABLES PREVIOUSLY DEFINED. 
R 


ISITOF = ITSVAL. (2ZIEL,y SEED ~ 
. ~-W'R ISITOF .NE. 0 a 
TEMP1 = LSSCPY. (ISITOF) 
comes, === TEMP2 = LIST. (9) : 
TEMP = LIST. (9) 
NEWBOT. (TEMP2, TEMP) 
NEWBOT. (TEMPL, TEMP) 
= ABANDON. (TEMPL) 
NEWBOT. (TEMP, PUSHES) 
Ore - 
R 
ROECIDE WHETHER TO FLAG AS *NEED* OR *PLEASE’. 
R 
W'R PRPNTR «NEw. TOP. (LSTNAM. (TEMP) )¢ 
1 T*O0 LUP937 
NOPTR = SEQRDR. (NEED) 
CKNEED = SEQLR. (NDPTR, F) 
W'R F 2G. 0 
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LUPO37 NEWBOT. ($PLEASE$, PUSHES) 
O'R ZIEL «Es. CKNEED 
NEWBOT. ($NEED$s PUSHES) 
O'E 
T'O LUPO35 
Ett 
Ett 
EL. 
T'Q LUPI31 
Et 
R 
RINFORMATION FOR RECURSION ASSEMBLED: SO SAVE STUFF 
RFCR THE PUSH. 
R 
PUSH1 SCMERC = OB 
W'R SWITCH .G. 1 
P*'T NOTELs PRMNUM 
V'S NOTE] = $H*SCAN PUSH FOR',13#$ 


Ett 
T'O PUSHIT 
PUSH2 SCMERC = 18 


W'R SWITCH 2G. 1 

P*'T NOTEA, PRMNUMN 

V'S NOTEA = $H*PREMISE PUSH FOR", 1 3#$ 
Ett 

PUSHIT NEWTOP. (DEF, STACKA) 

NEWTOP. (EQUIV, STACKA}) 
NEWTOP. (NEED, STACKA) 
NEWTOP. (SEARCH, STACKB) 
NEWTOP. (DEFINE, STACKB} 
NEWTOP. (STACK1s, STACKA) 
NEWTOP. (STACK2, STACKA) 
NEWTOP. (CONCL, STACKA) 
NEWTOP. (PIECE, STACKA) 
NEWTOP. (FIND: STACKA) 
NEWTOP. (SEE, STACKA) 
NEWTOP. (READS, STACKA) 
NEWTOP. (HOLDP, STACKA) 
NEWTOP. (HOLDT, STACKA) 
NEWTOP. (CHAR» STACKA} 
NEWTOP. (VARIABy STACKA) 
NEWTOP. (PRPNTR» STACKA} 
NEWTOP. ,CANSWERe STACKA) 
NEWTOP. (SOMERC, STACKA) 
NEWTOP. (EQLIND, STACKA) 
ECUIV = PRMNUM 
SEARCH = PUSHES 


T*O LUPDD) 
R 
RCHECK WHETHER PREMISE CONDITIONS ARE SATISFIEO. 
R 
PRMCHK PLECE = SEQRDR. (DEFINE) 
LUPO51 W'R LEMPTY. (STACK1) 


WIR LEMPTY. (STACK2), T'O LUPIIL 
PRPNTR = SEQLRe. (PIECE, F) 
W'R F .Ge Os T'O ASSMBL 
TEMP = STACK 
STACK1 = STACK2 
STACK2 = TEMP 
Ett 
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FIND = POPTOP. (STACKI) 
SEE = USTNAM. (FIND) 
READS = POPTOP. (SEE) 
PRMNUM = TOP. (LSTNAM. (PRPNTR)) «Ae T7T7TTIK 
CLIST = ITSVAL. ({PRPNTR «Ae T77TT7Ky FIND) 
R A 
RPREMISE HAS NOT BEEN PREVIOUSLY VERIFIED WHILE 
RSEARCHING CONCLUSION. . 
R 
W'R DLIST .E. 9 
LIST. (PUSHES) 
TERM SEQRDR. (PRPNTR) 
tuPOo53 TOPS SEQLR.« (TERM, F} 
WIR F 2G. O, T'O PUSH2 
TOPS = TOP. (TOP. (TOPS}) 
DLIST = ITSVAL. (TOPS, FIND} 
W'R OLIST .E. 2 


hol 


R 
RVARIABLE NOT YET DEFINED. INSERT "NEED? 
R 
NEWBOT. ($NEED$, PUSHES} 
W'R SWITCH 2G. 0 
P*T NOTED 
V's NOTEO 


$H-"NEED' REQUEST IN PREMISE CHEC 
1K.-*$ 
E't 
T'G LUPD53 
Ett 
TEMPL = LEST. (9) 
NEWBOT. (TEMP1, PUSHES} 
TEMP2 = LIST. {9} 
NEWBOT. (TEMP2, TEMP1) 
TEMP2 = LSSCPY. (DLIST} 
NEWBOT. (TEMP2, TEMP1) 
ABANDN. (TEMP2) 
T'O LUPO53 
Cre 
R 
RPREMISE HAS BEEN PREVIOUSLY GENERATED IN SCAN 
RCF CONCLUSION. 
R 
SOMERC = 0B 
PUSHES = LSSCPY. (OLIST) 
TERM SEQROR. {PUSHES} 
TEMP SEQROR.» (PRPNTR) 
LUPO57 TOPS SEQLRe (TERM, F) a a Fats 
TEMP3 = SEQLR. (TEMP, H) 
W'R F 2G. 0 
W'R SOMERC, T*0 PUSH2 
TRALST. { PUSHES) 
NEWTOP. (READS, SEE) 
NEWBOT. (FIND, STACK2) 
T*O LUPI51 
O'R F oko 9 
SOMERC = 18 
TEMP3 = TOP. (TOP. (TEMP3)) 
OLIST = [TSVAL. (TEMP3, FIND) 
W'R DLIST -E. 0 
P'T NOTED 
SUBST. ($NEED$, SEQPTR.» (TERM)) 


uo 


ASSMBL 


LUPO6T 


LUPO7L 
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T'GQ LUPI57 
Er 
TEMPL = LIST. (9) 
SUBST. (TEMP1l, SEQPTR. (TERM)) 
TEMP2 = LIST. (9) 
NEWBOT.. ({TEMP2, TEMP1) 
TEMP2 = LSSCPY. (DLIST) 
NEWBOT. (TEMP2, TEMPL) 
ABANDON. (TEMP2) 
Ett 
T*'O LUPOST 
Ett 
R 
RASSEMBLE CONCLUSION TO BE TRANSMITTED UPSTAIRS 
R 
WtR LEMPTY. (STACK2), T*'O LuUPQOL 
FIND = POPTOP. (STACK2) 
READS = POPTOP. (LSTNAM. (FIND) } 
TERM = SEQROR. (FIND) 
PREM = SEQROR. (LSTNAM. (DEFINE)) 
TCPS = SEQLR. (TERM, G) 
CCNCL = SEQLR. (PREM, F) 
R 
RASSEMBLED, ADO TO ANSWER AND RETURN’ 
R 
WIR F .Ge 0 
NOOLST. (FIND) 
NEWBOT. (FINOs ANSWER) 
T'O ASSMBL 
R : : 
RIF TERM SCANNED, SKIP IT. 
R : ee 
c'R G .E. 0 
T*O LUPG67 
R 


RIF NEED OR PLEASE 
R 

O'R G ot. 0 
SOMERC = 0B 
-TEMP = LIST. 
TEMPL = 
TEMP2 = 
WIR F 


SEQL 
Ge 2 


-- W'R SOMERC 
TEMP1 = 
SUBST. 
NEWBOT. 
TEMP2 = 
NEWBOT. 


G'eE 


ITRALST. 


- : Ett 

T'O LUP 
o£. 0 

SOMERC 

OLIST = 

ANTWRT 

WR ANT 


O'R F 


WtR TOPS .E. 
PRINT COMMENT 


SEQROR. 


» ASSEMBLE. 


(9) 
Re 
OR. 
LI! 


ul 


067 


= 18 
TOP. 


= ITSVAL. 


WRT .E. 


(TEMPL, 
(TEMP, 


(TEMP2, 


(CONCL} 
(TEMP, 


F} 
TOPS 
ST. (9) 


ST. (9) 


(TEMP) 


(TEMP2) 
(OLIST, 


ie) 


SEQPTR. 
TEMPL) 


oE. $NEED$ 


TEMPL} 


FIND) 


S$NEECS 


S'NEED! 


(TERM}) 


ERRORS 
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Ete 
IRALST. (FIND} 
T'O ASSMBL 


Eth 
TEMP3 = LSSCPY. {ANTWRT? 
INLSTR. (TEMP3: (CONT. (TEMP .A~ 
1 77777K)) .RS. 18) 
IRALST. (TEMP3) 
O'R F .Le O 
NEWBOT. (TEMP2, TEMP) 
Eft 
T'O LUPO71 
ae 
R 
RPCP-UP ROUTINE 
R 
pop W'R SWITCH .G. 2 
PRTLST. ($ANSWER$, ANSWER) 
Ett 
IRALST. (STACK1) 
TRALST. (STACK2} 
WIR LEMPTY. CSTACKA)s T*O THKGOD 
IRALST. (SEARCH) 
RTRN1 = ANSWER 


ECLIND = POPTOP. {STACKA) .E. 1 
SCMERC = POPTOP. {STACKA) .£. 1 
ANSWER = POPTUOP. (STACKA) 
PRPNTR = POPTOP. (STACKA) 
VARIAB = POPTOP. (STACKA) 


CHAR = POPTOP. (STACKA) 


HCLDOT = POPTOP. (STACKA) 
HCLOP = POPTOP. {STACKA) 
READS = POPTOP. (STACKA) 


SEE = POPTOP. (STACKA) 
FIND = POPTCP. (STACKA) 


PIECE = POPTOP. (STACKA) 
CCNCL = POPTOP. (STACKA) 
STACK2 = POPTOP. (STACKA) 
STACK] = POPTOP. {STACKA}) 
CEFINE = POPTOP. (STACKB) 
SEARCH = POPTOP. (STACK8) 


NEED = POPTCP. (STACKA}) 
ECULV = POPTOP. (STACKA) 
DEF = POPTOP. (STACKA) 
G=0 
wW'R SWITCH .G. 1 
Pt'T NOTE2»s EQUIV 
V'S NOTE2 = $H*POP BACK TOs I3,H totes 
Ett 
WIR SOMERC, T'O POP2 
R 
RRETURN TG SCAN GCF CONCLUSION AFTER PUSHING 
RFCR OEFINITION OF A VARTABLE. 
R 
POP] W'R LEMPTY. (RTRNL} 
TRALST. €RTRN1L) 
FRALST. (FEND) 
INP = 9B 
W'R SHITCH wb. 4, T'O LUPIO9 
PRILST. ($STACKI$, STACK1) 


LUPOTS 


LUPO8Y 


LUPOs1 


R 


RSAVE THE RETURN ANSWER, 


PRILS 


Ett 

FNOCP 
TEMP 
TEMP3 
TEMPL 
TEMP2 
WIR F 


O'eE 


Ett 
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Te (S$STACK2$, STACK2) 
T*G LUPGOS 


Y = LSSCPY. (FIND) 
= SEQRDR. (FIND) 


SEQRDR. (FNOCPY) 


TOP. (TEMP2) 


= SEQLR. (TEMP, F) 
= SEQLRe (TEMP3, H) 
«Ge 0 
T'O LUPO8O 
W'R TEMP .E. READS 
CPYHDP = 
CPYRDS = TEMP3 
LINKS = CONT. (TEMP2 oA. 
E*L 
T'O LUPO?9 


RAND PREDICATES AS GIVEN FROM PUSH. 


R 


TEMPL 
TEMP 3 
TEMP2 
TEMP4 
TEMPS 
WIR F 


C'RH 


nhHeuoniu 


0G. 0 
NEWVAL « 
ABANDN. 
NEWTOP. 
NEWBOT. 


T*O POPL 


ele 9 


POPTOP. (RTRN1) 
SEQROR. (TEMP1) 
SEQROR. (PRPNTR) 
SEQLR. (TEMP3, H) 
SEQLR.» (TEMP2: F) 


T77TT7K) «RS. 18 


AND OEFINE VARIABLES 


(PRPNTR «Ae 77777Ke TEMPle FNDCPY) 


(TEMP1) 


{CPYRDS+ LSTNAM. 


(FNDCPY, STACK2) 


W'R TEMP4 .E. $NEED$ 
- PRINT COMMENT $*NEED* ERR 


Ett 

T'O LUPDBL 

TMPVAR = TOP. (TOP. (TEMPS)) 
PRVDEF = ITSVAL. (TMPVAR, 


{FNDCPY)} 


ORS 


FNOCPY) 


R 
RVARIABLE PREVIOUSLY DEFINED. COMPARE DEFINITIONS. 
R 


R 


WtR PRVDEF «NE. 2 


- WtR LSTEQL. 


et 
Oe 


t 


(PRVDEF, TOP. 


IRALST. (FNDCPY) 
IRALST. (TEMP1L) 


T#O POPL 


RACD DEFINITION. 


R 


NEWVAL. (TMPVARy 
VARIAB «EE. TMPVAR 


we 


R 


SUBST. (POPBOT. 


(TEMP4)) 


«NEo 


TOP. (TEMP4), FNOCPY) 


CHK = LSSCPY. (TOP. 
NEWTOP. (LIST. (9), 


W'R LEMPTY. 


(CHKO), 


(TEMP4)} 
TEMP4) 
T'o LUPO8L 


(TEMP4)~_ LINKS) 


fe) 


THKGD2 


LUP15) 


LUPERR 


ERRLUP 


LUPSEE 
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W'R LEMPTY. (ANSWER?) 
WR ALLRC, T*O HERAUS 
WR SOMERC 


PRINT COMMENT $SCAN COMPLETED. 


1U1 STRING. § 


SYNTAX ERROR IN INP 


PRINT COMMENT $PART(S) OF INPUT OR NEED STRING(S) NOT SCANNED 


1.¢ 
T'O LUP159 
Ore 
PRINT COMMENT $SCAN FAILED. 
LSTRING(S) 2% 


SYNTAX ERROR IN INPUT 


Ett 

PRINT COMMENT $NO TRANSLATED OUTPUT.$ 
CHKNUM = 0 

MAX1 = 0 


CONCHK = SEQRDOR. (SEARCH) 
SEECHK = SEQLR.» (CONCHK, F) 
WIR F 2G. 0, T*O HERAUS 
CHKNUM = CHKNUM + 1 

WIR F «be. DO, T*O LUPERR 

1 = SEQLR.» (MAXCHK, F) 
OLOMAX = MAXL 

MAXL = "1 oAs T77777K 

MAX2 = I .RS. 18 

PRINT COMMENT $ $ 


WtR CHARAC. (1 + 1K6) .E&- S$OINULI& -ANDe MAX1 - MAX2 


1 ele 6 
P*T NOTE4s, CHKNUM 


O'E 
MAX3 = CHARAC. (1) 
P*T NOTES»: CHKNUM, MAX3 


V'S NOTE4 = $HTINPUT TERM*,»I2yH* COMPLETELY SCANNED 


V'S NOTE5 = $H*LAST CHARACTER INSPECTED IN TERM* 


*,sRCi,H! 
PRINT COMMENT $ $ 
LINEL = (MAX2 - 13/6 - 2 
LINE2 (OLDMAX + 5)/6 - 1 
LINES = (MAXL - 1)/6 
THROUGH ERRLUPe FOR I = Oy 


lyl2yH* WAS 


WR LINE] + IT LE. LINE2 


IN MIOST OF FOLLOWING CONTEXT. *#$ 


I .E. 5 
eOR.e. LINEL + I eGo 


1 LINE3 
BUFFER(I) = 575757575757K 
Ore 
BUFFER(I) = INPUT({LINE] + 1} 
Ett 
CONT TINUE 
P*T NOTE6s BUFFER(0),..6+,8UFFER(4) 
V'S NOTE6 = $5C6*$ 
E't 
T'Q LUPERR 
Cte : 
SQMERC = 1B 


HOLD = POPTOP. (ANSWER) 
ENDCHK = SEQROR. (HOLD) 
TEMP4 = SEQRDR. (SEARCH) 
SEECHK = SEQLR. tENDCHKy F) 
TEMPS = SECLR. ITEMP4, H) 
WIR F 2G. Op T'O ALLOVR 


W'R TEMP5 .£. SPLEASE$, T*O LUPSEE 
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TEMP = BOT. (SEECHK) 


W'R NOT. 
TEMP] 
WER. 
TEMP2 
TEMP3 
TEMPL 


LEMPTY. 


(TEMP) 


= POPTOP. 
NOT. 
TEMP 
TEMP1 
CHARAC. 


LEMPTY. 
oRS. 
eAe 


(TEMP) 
(TEMP), 
18 
TTUTTTTK 
(TEMP1) 


W'R TEMPL 


oNE. $OQ00END$ 


«AND. 


T'G THKGDL 


TEMP 


NE. 


1 £G9NULLS 
Ett 
T*G LUPSEE 

EVE 

R 

RSCAN WAS SUCCESSFUL. 

R 

WTR ALLRC 
PRINT COMMENT $ $ 
PRINT COMMENT SACDITIONAL SUCCESSFUL SCAN.$ 
T'O ALLGNE 

Cte 
PRINT COMMENT $SCAN SUCCESSFUL .$ 
ALLRC = 1B 
PRINT COMMENT $TRANSLATED OUTPUT CIF ANY) 
CONCHK = SEQROR» (SEARCH) 
TRMNUM = 9 
CONCL = SEQLR. (CONCHK, 
SEECHK = SEQLR. (ENDCHK, 
TRMNUM = TRMNUM + 1 
W'R F .Ge. 9s T*O THKGDL 
W'R CONCL «NE. SNEEDS$, 
PRINT COMMENT $ $ 
W'R SEECHK .E. $NEED$, 
P'y NOTE7, TRMNUM 
V'S NOTE? = $H'TERM NUMBER*,I2,Ht of #$ 
PRINT COMMENT $ $ 
SEECHK = TOP. (SEECHK) 
INP = 9B 
THROUGH LUPI1OIL+ FOR I = Uy 
BUFFER(I) = S75757575757K 
BUFFER(14) = T77777777777K 
}=0 
G = 33 
WROCNT = 0 
W'R G .LE. 

G = 3) 
WROCNT = 


-OR. TEMP3 - TEMP2 .G. 5, T*'0 THKGOL 


PRINT QUT *NEEDED' TERMS. 


ALLOVR 


ALLGNE FOLLOWS.$ 


F) 
G) 


LUPOUT 


T*O LUPOUT 


PRINT COMMENT $*NEED® ERRS 


LUPLoOw oE. 14 


LUPL21 


1, 1 


CHKEMP -6 

WROCNT + 1 
E't 
W'R I .E. 80 

PRNTP. (BUFFER 


T'O LUP1O9 


CROUT (O)} 


INP 

INP = 18 
TEMP) = 
TEMP = 

W'R TEMPL 

W'R TEMPL 

T¢O LUP1L13 


LUP1L.5 
LuPl.7 CHARAC. (TEMP) 
TEMP + 1K6 

ef. SUONULLS, 


oE. SIOIENDS, 


T'O LUPLG?T 
T'G LUP1U9 


LUP1LSD W*R LEMPTY. (SEECHK) 


ROANS 


SKIPLT 
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E'O READIN. 

COND = 6 

CUMMY = f 3 

Pha ROL ENE 

WIR WERE whe $ -$ .OR. WORD 2 
CEMMY = DUMMY .LS. 6 «Ve WORD 2A. 
WER EQUEND, FUNCTION RETURN 

THO NE WCORE 

EN 

EM 


Se 


T'O SKIPIT 
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SERRA KRERERA TREES HEAR RET EER SEER EEE SERRE EEE EERE EEE EHH REE RR RE EE 


M5364 5163 PRTILST MAD FOR M5364 5163 05 
EXTERNAL FUNCTION (NAME, LSTOUT) 
K'S INTEGER 
BCOLEAN LEMPTY 
E'O PRTILST. 
PRINT COMMENT $ $ 
P*T NOTE8B, NAMEs GETMEM. (0) 
V'S NOTEBB = $C6,H* MEM=', 168$ 
I= 6 : 
LIST. (STACK} 
: LISSNM = LSTOUT Sel Bras 
START NUMBER = ITSVALs. (LISSNM» STACK) 
W'R NUMBER .NE. 0 ms 
P*T NOTE2, NUMBER 
V*S NOTE2 = $HILIST*s 130$ 
AROUND WER LEMPTY. (STACK) 
PRINT COMMENT $ $ 
IRALST. (STACK) 
- FUNCTEON RETURN ie Esa 


S = POPTOP. (STACK) 

POINT = POPTOP. (STACK) 
NUMB = POINT An T77TTIK 
POINT = POINT .RS. 18 

-W*R POINT .E. le T*Q RETURN 


T*O GGBACK 
Ett 
Ett 
Tete. 
AUMB = I 


NEWVAL. (LISSNM,y NUMBy STACK) 

P'T NOTE3, NUMB 

V'S NOTE3 = $H'BEGIN',13,H'.%#$ 

S = SEQROR. (LISSNM) 

tL = LSTNAM. (LISSNM) 

WTR L NE. 2 
PRINT COMMENT $DLIST.$ 
NEWTOP. (NUMB .Ve 1K6e STACK) 
NEWTOP. (Sy STACK) ; 


LISSNM = L 
T'O START . 
RETURN PRINT COMMENT SEND DLIST.$ 
C'E oe cae 
PRINT COMMENT $NO DLIST.S 
Eft - sc ey 
GOBACK W = SEQLR. (Sy FI 


W'R F .G. 0 
P*T NOTE6, NUMB 
V"'S NOTES = $SH'END'sIT3eH*.'#S$ 
T*O AROUND 

C*R F .E. 9 
WER W «Aw TODDD0TKS eNE~ O, T*O READER 
PRINT COMMENT $LIST NAME.$ . 
NEWTOP. (NUMB, STACK) 
NEWTOP. (Ss STACK) 
LISSNM = W 
T'O START Js 

Cre 

READER P*T NOTES: Ws W 

V'S NOTES = $H. *.eC6rH.?® PeeKL 2H. to48 


ett 
Et 


FEO 


SORACK 
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